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1.0 ABSTRACT 
Me3 Fg MERA FOR THE oh flB0 PRINTER ARE DESIGNED TO EXERCISE ALL 
NTER MULATING WORSE CASE CONDITIONS TO DETECT BOTH 


AEEHENICAL AND PET CTRICAL FA FAULTS. ADDITIONAL FACILITIES WITHIN THE 
DIAGNOSTI IC PROGRAM WILL AID IN ISOLATION OF ANY FAULT CONDITIONS 


OPERATION OF THE DIAGNOSTIC PROGRAM WILL BE CONTROLLED FROM THE 
PROCESSOR SWITCH REGISTER OR FROM AN AVAILABLE CONSOLE DEVICE. THE 
OPERATOR WILL BE GIVEN AS MUCH CONTROL OVER THE OPERATION OF THE 
PROGRAM AS POSSIBLE WHILE TRYING TO KEEP THE CONTROL SCHEME SIMPLE. 


Ts BI NOSTIC_PROGRAM_WAS DES TONED TO RUN IN 4K OR LESS OF MEMCRY 
AND T COMPATIBLE WITH ACT AND XXDP. 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 


THIS DIAGNOSTIC WAS WRITTEN TO RUN ON ALL MODELS OF THE POP-11 
OEnine a a A asi PRINTER USING EITHER fA STANDARD PARALLEL 
SERIAL INTERFACE. MULTIPLE LAI80’S 


ON 

slid Pum “Batta ne INTEREACES, AND. PROVIDING ae 
i F FOR ¢ nie ok Teue one ANS ERAGE 

REPOR CE pe cr Fad SR het A CONEGLE Revie D WHEN RUNNING 
DIAGNOSTIC BUT IT IS NOT REQUIRED IF THE CPU HAS HARDWARE 

ur Yc H REGISTER. F ANY NON-STANDARD ADDRESSES ARE USED" FOR EITHER 


R THE CONSOLE DEVICE, CHANGE THE ADDRESSES IN THE 
TAG BREA OF THE PROGRAM (STARTING AT LOCATION 1100). 


2.2 STORAGE 


THIS PROGRAM USES MOST OF 4K OF MEMORY WITHOUT AFFECTING THE AREA USED 
BY THE ABSOLUTE LOADER. 


2.3 PRELIMINARY PROGRAMS 


aa AA an LE PDP-11 DIAGNOSTICS SHOULD BE RUN SUCCESSFULLY ON THE 


MAINDEC-11-DZ2LAE-B MACY11 27(1006) 


DZLAES.P11 


28-FEB-77 15:08 


O1 


O1-MAR-77 14:45 PAGE 4 
PAGE 4 


3.0 LOADING PROCEDURE & INITIALIZATION 
LOAD THE LAI8O DIAGNOSTIC PROGRAM FOLLOWING NORMAL PROCEDURES. 
A HARDWARE SWITCH REGISTER DOES NOT EXIST OR ALL SWITCHES ARE 


Bsns or EBcRiton 176 AS THe Valle OF fhe Sulvones, © TheneFOne, 


HHEN a , THA H REGISTER BE SURE TO LOAD TO LOAD LOCATION ae 
SET TON i rab Sul Ate cH VAC, ORE OPTHARE SuITEH ROcIST REGISTER CONTROL. 


REFER TO SECTION S.S FOR INTERFACE CONTROL INFORMATION. 


REFER TO THE TEST ADDRESS TABLE IN THE PROGRAM LISTING FOR DETAILS ON 
ie PRINTING TEST SEQUENCE OR DELETING TESTS FROM THE 


4.0 STARTING PROCEDURES 
STARTING ADDRESSES: 


200 = GENERAL STAR 
RUN SPERRTOR. INTERVENTION TESTS THEN ENTER PRINTING TEST 
SEQUENCE. FOR USE ON SINGLE-PARALLEL INTERFACE ONLY. 


600 = RESTART: 
ENTER PRINTING TEST SEQUENCE DIRECTLY SKIPPING OPERATOR 
INTERVENTION TESTS. 


604 = F ametiaail TO CONSOLE TERMINAL KEYBOARD CONTROL - SELECT 


STARTING AT 200 WILL RUN THE ENTIRE DIAGNOSTIC PACKAGE. THE PROGRAM 
WILL CARST EXECUT wee erie t INTERVENTION TESTS AND bia ENTER ne 


G TE W CONT STARTING 
RE Pee Reet WILL Weer ie aay INTE VENTION TESTS AND ENTER 
oC PRINT ING TEST SEQUENCE DIRECTLY. STARTING AT WILL CAUSE THE 
PRO GO DIRECTLY TO CONSOLE, K KE CONTROL IF A EONSOLE DEVICE 
EXISTS 5 HERWISE, THE WILL BRR O AT TING FOR A TEST SELECTION 
FROM THE SWITCH REGISTER. ALSO, SY PLACING THE HALT AND SELECT TEST 
SWITCH UP (1) BEF ORE eARTING THE DIAGNOSTIC, THE DIAGNOSTIC WILL HALT 
WAITI T SELECTION FROM THE SWITCH REGISTER AFTER 
INITIALIZATION OF THE PROGRAM. 


TO START THE meLieTeR Be! PROGRAM: SET THE D D SIRED. TARTING ADDRESS IN 
THE SWITCH TE DEPRES s$ L THE SWITCH REGISTER 

PTIONS AS DESIRE SECTION NS Dy te EPRESS START. THE 
OT AENReTIC PROGRAM Dru or RUN IN T HAMNER SELECTED. 


GO1 
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5.0 OPERATING PROCEDURES 


5.1 SWITCH REGISTER CONTROLS 

THE FOLLOWING, BASIC CONTROL FUNCTIONS ARE AVAILABLE THROUGH THE USE 

OF THE SUITCH REGISTER. IF A re SWITCH REGISTER DOES NOT EXIST 
WERE SET UP FORE STARTING DIAGNOSTIC, THE 

PROGRAM WILL USE THE CONTENTS OF LOCATION 176 AS THE VALUE OF T 

SWITCH REGISTER. REFER TO SECTION S.3 FOR DETAILS ON SSR CONTROL. 


SWITCH POSITION FUNCTION 


15 1 (UP) STOP ON ERROR 


O (DWN) CONTINUE ON ERROR 
14 1 (UP) LOOP ON TEST 
O <DWN) NORMAL OPERATION 
13 1 (UP) INHIBIT ERROR TYPEOUT 
O (DWN) NORMAL OPERATION 
ll MANUAL TIMING - OVER ALL 
PRINT SPEED TIMING 
10 1 (UP) BELL ON ERROR 
O (DWN) NORMAL OPERATION 
09 1 (UP) SINGLE CHAR - SCOPE ROUTINE 
O (DWN) FULL LINES 
08 1 (UP) HALT 8 SELECT TEST 
O (DWN) NORMAL OPERATION 


07-00 & COLUMNS AT START UP. 
OS-00 TEST SELECTION DURING DIAG. 
C&-00 CHAR SELECTION FOR SCOPE ROUTINE 
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S.1.1 SWITCH 1S - STOP ON ERROR 
WITH THIS SWITCH UP (1), THE PRO WILL HALT OR WAIT F KE D 
ON ContT TING ON 


DETECTED ERROR. WHEN DOWN (0), THE PROGRAM WILE 
ERROR IF POSSIBLE. 


S.1.2 SWITCH 14 - LOOP ON TEST 
EES AUT MS TCG ee BOA ete ae 
sue SHITCH To it Bown i) “Pos ii 15 iis reg Oa! NUE NORM 
OPERATION A T THe COMPLE TION THE CURRENT WHENEVER THIS 
SWITCH IS DOWN (0), T Sheen WILL CONTINUE ES RMAL HB eRATTON 


5.1.3 SWITCH 13 - INHIBIT ERROR TYPEOUT 


WHENEVER THIS SWITCH IS IN THE UP (1) POSITION, ERROR TYPEOUTS WILL 
NOT OCCUR. 


5.1.4 SWITCH 11 - MANUAL TIMING 


THIS SWITCH WILL BE USED TO MANUALLY TIME THE OVERALL PRINT SPEED OF 
THE LA18O0 PRINTER IF A CLOCK OPTION DOES NOT EXIST. 


5.1.5 SWITCH 10 - BELL ON ERROR 


tale THIS SWITCH UP (1) WILL CAUSE THE CONSOLE (IF AVAILABLE) TO 
RING BELL WHENEVER AN ERROR CONDITION IS DETECTED IN THE LALSO 


§.1.6 SWITCH 9 - SINGLE CHAR/FULL LINES CHAR 


THIS SWITCH WILL BE USED TO SELECT WHETHER TO SEND ONLY SINGLE 
eee OR FULL LINES OF CHARACTERS TO THE LAISO PRINTER DURING TEST 


61 ONL 
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S.1.7 SWITCH 8 - HALT & SELECT TEST 


THE PROGRAM WILL HALT WHENEVER THIS SWITCH IS PLACED IN THE UP (1) 
POSITION. AT THAT TIME SEI THE DESIRED TEST NUMBER IN THE PROPER 
POSITION IN THE PROCESSOR SWITCH REGISTER. 


TO START THE NORMAL TEST SEQUENCE WITH THE SELECTED TEST, PLACE THE 
HALT AND SELECT TEST SWITCH DOWN (0) THEN DEPRESS THE CONTINUE SWITCH. 


TO_RUN A ae sta TEST ONCE AND HALT, LEAVE My Se HALT ne SELECT TEST 


SOHPLETE-P a OF THe OFECTED 1ST nei HALT WAITING WAIT EOR R eROTHER Test 
SELECTION. YO HAL LER OERAN BURING XECUTION is ES 


TIRE SELECTED TE 
HALT & B SELECT TEST SWITCH DOWN mo) A THE 

mt HALT Wat TION OF THE CURRENT OPERATION AND WAIT FOR 
BNO HER TEST dite ION. 


5.1.8 SELECTION OF NUMBER OF COLUMNS 


THESE SWITCHES WILL BE USED WHEN THE PROGRAM IS FIRST S 
IRED RAXTNUM NUMBER OF COLUMNS THE DIAGNOSTIC I 
NUMBER SET MUST SE IN OCTAL AND BE EQUAL TO OR GREAT 
oF A 132(10). IF THE SWITCHES NO 
ort LIMITS, THE PROGRAM WILL DEFAULT TO TESTING 
THUS, LEAVING THESE SWITCHES DOWN (000) THE P 
TEST THE FULL 132(10) COLUMNS. 


nerey TO INPUT 
TEST. es 


ES ag 
sy 
- 

25x23 


5.1.9 TEST SELECTION 


THESE SWITCHES WILL BE USED TO SELECT A DESIRED TEST WHENEVER THE HALT 
AND SELECT TEST SWITCH IS USED TO HALT THE DIAGNOSTIC PROGRAM. 
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5.2 CONSOLE TERMINAL - KEYBOARD CONTROL 

WHENEVER A CONSOLE TERMINAL IS DETERMINED TO ate ay | BY 

KEveonr® oF tHe CONSOLE DEVICE. cae Aca: : Re 

FOLLOWING NESSAGE on THE CONSOLE DEV DEVICE: a STOP rte D sco 
SELECT TEST #: 


TYPE ANY LEGAL TEST NUMBER FOLLOWED BY ONE OF THE FOLLOWING CONTROL 
CHARACTERS AND A CARRIAGE RETURN: 


CHARACTER FUNCTION 
(PERIOD) RUN TEST ONCE & RETURN TO TEST SELECTION 
L LOOP ON SELECTED TEST 


START SEQUENCE WITH SELECTED TEST 


THE L_ AND S MAY BE EITHER UPPER OR LOWER CASE BUT TEST NUMBERS MUST 
ALWAYS BE ENTERED AS 2 DIGIT NUMBERS. 


On "FRE' CORSBEE "'FBRRURAL KeVeaRD Ar BR'TinRe, TRE FoLCOUING Resshce 
WILL BE TYPED ON T 
# COLUMNS = 


REYEOMD "Fol Bies) BY'"R” Chamlae Re TURN. OTF THE SELECTED WuRBER TS 
teas oe 2 “BEEN fe He THAN (10) Mg Ve Te asece Bil, Li OE RET MBER Te 


I 
ENTERED OGRAM WILL THEN ASK FOR” A TEST SELECTION AS DESCRIBED 
ENR BUSLY IN Page SECTION. 


TO pane THE NUMBER OF COLUMNS WHEN WAITING FOR A TEST SELECTION 

TYPE CONTROL-C FOLLOWED BY A ae RET . ete INPUTTING A 
TEST SELECTION ON OR COLUMN NUMBER THE Rup (DEL) KEY BE USED 10 
DELETE INCORRECT ENTRIES. AT ALL TIMES SWITCH REGISTER CONTROL WILL 
STILL BE EFFECTIVE, EVEN IF USING CONSOLE TERMINAL KEYBOARD CONTROL. 


DZLAEB. 
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5.3 DYNAMIC SOFTWARE SWITCH REGISTER CONTROL 


RA CONSOLE TERMINAL 


of 7 of AVAILABLE AND A HAROWARE _ SUITCH 
Sa Tilt, ng albane Gh OHS NE En DUR 
T HOM REGISTER CONTROL: 


TEING a ( 1 at ANY TIME DURI XECUTION, EXCEPT 
WAITING bog ‘E _ TORS COLUFIN PR CRT BN WILL daute tte 
Diacnost ic TO STOP THE CURRE CURRENT TEST AND THEE FH RE FOLLOWING MESSAGE 


HE CONSOLE GEVIC 
SWR = XXX¥XX NEW = 


WHERE XXXXXX_ 1 ao U gt OF THE SOFTWARE SwITCH REGISTER 
(SSR) IN OCTAL "Ne. Sor Ture TROL ROUTINE WILL THEN AWAIT OPERATOR 


elle ONL TELE HED GD Seated et Go, 


Tah At 


Bvt Peres Ge ae Ee Ba otdrths SRN 2 SESS" 


THE SWITCH SETTING 


bPsfkeD VALUE IN O€TAL ye re ae tyeeb. ARO 


TERMINATES THE INPUT STRING WITH A <CR F> DEPENDING 


Te ON RPE DA EMER” Bete di B 


PRIOR TO THE TERMINATOR BEFORE A C THE SSR WILL OC 


I TRING TERMINATED W TH ; <CR> THE TIC WILL 
cont TH i BeeUTION THI FRO The POLE PRO aan in TROT ) 4 ' 
CHANGI Rc ee SSR. Ne A <LF$ IS USED TO TERMI tNATE err tNPUT STRING 
THE PROGRAM WILL THEN ASK FOR A TEST SELECTION AS DESCRIBED IN SECTION 


IF A tU_ IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO THE 
Mig yee INPUT VALUE WILL BE DISREGARDED AND THE PROMPT MESSAGE 


ee pit oat 
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5.4 ERROR REPORTING ON PARALLEL INTERFACE 
Foul ape wENeVeRY Ru amo EIECTED THE POLLOUING CaN Tess 
pore BE PRINTED ON THE CORCOLE BEVIEES 


TEST 8XX, PC=XXXXXX, ERROR #XXX, MESSAGE >>>>>>>>>> 


ERROR OUCURFED, THE ERHON RUTEER, 0 The THRE Or ERROR Thar CecuRRED. 


FOR ADDITIONAL’ INFORMATION ANY ERROR CONDIT 
PROGRAM LISTING. 


SSE (GS TORI OT ASI AE TE AO" St 
me HLS eda SE BEE al, Dt “te BT 
STOEL 12 UES MDGORH Me" ASFA Ee Me 


LISTING 


5.5 INTERFACE CONTROL 
THIS age fe wY a la LOADED, IS ees ree Ws » ne 


SINGLE LA180 IN 
ae ae nod tak it BEF etn 
NTERF ACES, BY SRS OR 


AGNOSTI CONDITIONED 


BEEN 
INTERFACE ( 
VALUE HAS BEEN 


Had 
Fs 
m 
a 
ai 
4 


6.0 TEST DESCRIPTIONS 


6.1 OPERATOR INTERVENTION TESTS 


GOUCD™ POSSIBLE REQUIRE © OPERATOR INTERVENTION, —THEGE TESTS" A 


EXEC C IS FIRST STARTED UP. 
BETAILED BESCRIPTION “SF Ach TEST PFO OWS: 


cn a a ee ee ee ee ee se + ee 


em wr cn rn nn nn ne re ee | ee ee we - 


eS “i te ® 
DZLAEB.P 28-FEB-77 


em a re ee ee se ee ee ee ee + ee eee ee 


MACY11 27(1006) 
15:08 


MO1 


D1-MAR-77 14:45 PAGE 11 
PAGE 11 


6.1.1 TEST 00 - INTERFACE & er TESTS 

THIS TEST TEMP ACE ga Con OF ch t adi E 
TesthaLe” Mey eo Boge, p oa: ne RIN 
fe TRE a A a Pit FOR THe THE et Vice 4 BVBTLABLE THE THEN 


My} INUE Sul TCH 
ONT a ‘a an IS AVAI Q TEST THE NEXT 
CONDITION NEEDY oulttinche tes CONDITION ISTS 

we Ronee SULTS MES WILL BE PRINTED 


ARE ENC » AN ERROR 
Oe ee DEVICE I AVAILABLE. "(REFER TO SECTION 5.3 ON 


peatn IN THE PRI S INE.__ THE DIAGNOSTIC orth 
AN Le Alon THE CE WILL NEXT INFORM THE OPERATOR 10 
TURN LA180 ON LINE WILL NOW CHECK THAT THE ERROR BIT 
IS CLEAR AND THE PRINTER IS READY. THE NEXT PRINTED INSTRUCTION WILL 
HAVE _THE TOR FORCE A CONDITION BY OPENING THE PAPER 
FEED TRACTORS AND REMOVING THE INTER. THE DIAGNOSTIC 
WILL CHECK THAT THE ERROR BIT IS SET AND PRINTER IS NOT THE 
LAST INSTRUCTION WILL ASK TO RESTORE PRIN TO. ON-LINE BY 
RE-I TING AND CLEARING THE CONDITION. MAKE 
PRINTER _IS SET TO ON-LINE BEFORE CONTINUING. THE WILL TEST TO 
SEE IF saneigns | ok panremene-! esa 

+ ery HALF OF THIS TEST WILL AUTOMATICALLY WITHOUT 


RESET Te ENSTRUCTION ON ARO SEE THAT THE i To Am me are i ‘Paints 
oe 4, a is ts att ‘es af THE Battie Rola bil 


WITHIN CHECK 
FhaT THE PRINTER. HTL WIL INTERRUPT ABOVE PRIORITY LEVEL 3 AND WILL 


INTERRUPT AT ALL Rast hyoly LS BELOW LEVEL 4 
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6.1.2 TEST Ol - TOP OF FORM SWITCH TEST 
THIS TEST CHECKS ALL POSITIONS OF THE TOP OF FORM SWITCH 


THE PROGRAM 
SM UGH Y elee (RELIC LU" ir Pte eee 


Ma A IB 
ON THE 


I Fo 
Bel he ool me THAT CHIYGH POSITION. BEER CecKTNG ML 


PRG ICATE 1 POUND BS: Fa MU MRSROEN AD HE ANG SE MTD 


EXAMPLE : 


6.1.3 TEST 02 - PRINT SPEED TIMING TEST » 


THIS ree. it: 3 EST peD TO TIME THE LAI8O FOR A oa afch te ar: " 
SWI PRINTED TO bg ote etion 


6.2 PRINTING TESTS 


ASSOCIATED. CONTROL, TORIC.” At THE. MEGINNING OF Enc Vest, ® Test 
HEADER WILL INDICATE THE 


EACH PRIRTER OPERATION Hi ERE LS LF AP ah sg 


LENEVER ae FROM THE NANCE FLAG. te SONOTT TBRAL UPON 
THE PRINTER “READY. stir THe PROCESSOR CAN ONLY DETECT THE CURRENT 
CONDITION OF THE “READY” AND “DEMAND” RETURN LINES IT IS NECESSARY TO 
EXAM INE Ear rty "hae PATTERNS _F PRODUCED BY THE VARIOUS TEST ROUTINES. 
ACH PATTE! BEEN FOR EASE OF VISUAL VERIFICATION. 

DETAILED DESCRIPTIONS OF EACH TEST PATTERN APPEARS IN THE DESCRIPTION 
OF THE FOLLOWING TEST ROUTINES. 


reas 1-DZLAE-8 
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6.2.1 TEST 20 - DATA TRANSFER PATHS TEST 


THIS TEST IS peSi@ey TO TEST RS DATA LINES TO AND THROUGH THE 
IN AND TO THE 180 PRINTER, pa ms ae ee BIT PATTERN IS 
SENT WHICH WILL PRINT A, TING BO an Ino KERBOARD 
PATTERN MAXIMUM it WIOTH. THE STARTING CHARACTER FOR EACH 
LINE IS ALTERNATED AND A TOTAL OF 16 LINES ARE PRINTED. 


“4 
oO 


EXAMPLE : 
SHURURURU LL... #URU 
URUHUBUH ..... U*U# 
MURURURU 2... #U*U 
U*U#URU% ..... U#U# 


6.2.2 TEST 21 - HEAD POSITIONING TEST 


THIS wet eS CARRIAGE i FROM ALL EVEN NUMBERED COLUMNS 
AND AD FROM THE LEFT MARGIN. 


1g Yes HOWEVER 
ne PRIMARY Y PURPOSE ony Pie IS 10 TEST THE SOLENOID HEAD POSITICA 


ODER FOR PROPER OPERATI 


THE TEST PRINTS A FULL LINE OF ALTERNATING 0°S AND SPACES, STARTING 

WITH A O. AT THE OF THE LINE THE PRINT HEAD IS RETURNED TO T 
tert MARGIN WITH A A CARRIAGE RETURN. THE S ARE THEN FILLED IN BY 
SPACING PRINT T FROM THE LEFT MARGIN TO THE FIRST 
PRINTING AN “X", AND EXECUTING A CARRIAGE RETURN. THIS PATT 1§ 
REPEATED UNTIL’ THE LINE IS COMPLETED. CHECK TO SEE THAT ALL X’S ARE 
IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ADJACENT ZEROES 


EXAMPLE: 
OxOXOXOXOX0XOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOX 


6.2.3 TEST 22 - BACKSPACE TEST 


pits a 15 8 DESIGNED TO CHECK THE BACKSPACE FEATURE 
LINES OF _X’S INTERSPACED WITH 


S WILL 
PRINTING, 8 SLASH EXECUTING A BACKSPACE, AND THEN PRINTING A BACK 
TO EACH X CHARACTER. @ MAXIMUM OF 127 COLUMNS WILL BE 
PRINTED Ee HIS TEST. 
EXAMPLE: 
K=-X=-K-K-X-K-X=-X 
X-X-K=-K-K-X-X-X 
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6.2.4 TEST 23 - CHARACTER GENERATOR TEST 


THIS TEST CHECKS THE SPACE ALL 94 PRINTABLE CHARACTERS (ASCII CODES 
ae rere 176) BY PRINTING A SINGLE LINE, 30 CHARACTERS LONG, OF EACH 


EXAMPLE: 





THIS TEST IS DESIGNED TO TEST THE LAI8O0 HANDLING OF NON-PRINTABLE 
C AND 19. SE THE FULL RANGE OF T R STORAGE 
BUFFER. watt ones} PATTERN PRODUCED WILE A 30 LINE SWIRL PATTERN 
CONSISTING FULL LINES OF THE PRINTABLE CHARACTER SET. IF 
THIS EST 1s Of ooPED oN, THE PATTERN WILL CONTI FULL 


BE USED TO FILL THE CHARACTER 
” BEFORE a A wR The GROUP OF “Pai Cae Ieee FOR EACH 
PRINTED LINE. CHARACTERS HAVING NO CONTROL FUNCTION 
WITHIN THE Fareou WILL i. TED. 
EXAMPLE: 
agra? (ae, :, Oresae Bg: sis ts 


=) ABCD... 
S48" ()¥+,- ” OAeBaSE789: | : (=) 79ABCDE.... 


6.2.6 TEST 2S - BUFFER TEST 


THIS s TEST ISD IS DESI TO TEST THE CHARACTER STORAGE BUFFER IN THE 
SPER DERAT ON. THIS TEST WILL PRODUCE FOUR LINES OF 
bata WITH PBL ARK LINES BETWEEN THE FIRST AND SECOND LINES. THE 
LINES PRINTED WILL ALSO SE AS A CHECK OF PRINTING THE CORRECT 
COLUMN WIDTH. THE PATTERNS ARE RIBED FOR 132 COL BUT WILL BE 
ACCORDINGLY FOR NARROWER TEST WIDTHS. BEFORE THE FIRST LINE 
IS STORED, 16 bers WILL BE ODED INTO THE BUFFER. N A RUBOUT (177) 
WILL SENT CHECK A RUBOUT WILL CLEAR 1 "BUFFER. BEF ORE 
EACH OF THE LAST THREE LINES Is PRINTED aND BEF ORE THe OL LINES 
BETUEEN THE F TRS FIRST SECOND PRINTED LINES THE CHARACTER BUPFER’ WILL 
BE FILLED WITH ALL E’ THUS, AN E PRINTED ANYWHERE IN THE TEST 
PATTERN INDICATES AN ERROR. 
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THE FIRST LINE WILL CONTAIN 100 ONES, THREES, 


THE 
Woe Liem kta . re: 


ZeRoEs WILL CONTAIN ONLY 9 CHARACTERS LAST LINE i 
THE HE AUNBERS 1 TO 9 THEN O IN BBCCESS TON. PEATE HE MAXIMUM 


THUS, THE COLUMN NUMBER MAY eee RHEE. FROM ING THE NUMBERS IN 
ANY GIVEN COLUMN ON THE LAST E LINES, FROM 158 0 BOTTOM. 
COLUMN 30 WOULD BE 0 


COLUMN 132 WOULD BE 


EXAMPLE: 
LULALALILILLILIIIILILILILII1111..... 322 


ano UUS UN 22 Re 


6.2.7 TEST 26 - OVERPRINT TEST 


Hats ae SIGNED TO CHECK_THE SPACING AND REPEATABLE PRINTING 

RISTICS OF T PRINTER. FOUR LINES OF CHARACTERS ARE EACH 
OVERPRINTED TWO TIMES. THE ROWS CONSIST OF THE FOLLOWING CHARACTERS 
ALTERNATED ACROSS THE LINE. 





ROW 1 .- 
ROW SP - @ 
ROW 3 M - SP 
ROW 4 SP - # 


THE RESULTING PATTERN WILL BE A CHECKERBOARD PATTERN AND THE 
emeateee CHARACTERS SHOULD BE ALIGNED PROPERLY WITH THE INITIAL 


EXAMPLE: 


EEEEEEEEEE 
IJIDIIAIIAAIADA 
oe wee ee ee MM 

seeeeees 
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6.2.8 TEST 27 - MULTIPLE LINE FEED TEST 

ne —— omnes ie LS peeD ee ON f i mcr ionce Mee he 
T ‘ iL. F RENCE CAT T 

Ra PTE Wal PRE "alt Cgan thal OE Re 


LOW 
CHRRCT SSE TESTA Oe HE Mb HEE eR BANE de 


EXAMPLE: 
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6.2.9 TEST 30 - RIBBON FEED TEST 
THIS TEST CHECKS THE en Oa MECHANISM BY PRINTING A SINGLE COLUMN 
OF OF X’S DOWN THE LEFT HAND MARGIN OF THE PAGE. VISUALLY 
wee FOR PROPER OPERATION OF THE RIBBON FEED MECHANISM DURING THIS 
EXAMPLE: 

x 

x 

xX 

x 

x 

xX 


6.2.10 TEST 31 - BELL TEST 


THIS TEST IS OESI@e? TO CHECK THE BELL CODE LOGIC. AND THE TIMING 
SEQUENCE OF THE MICRO LOGIC. THE TEST WILL PRINT “BELL TEST” 
as vty BELL a BETWEEN CHARACTERS AND THE FOLLOWING 


IAGE RETURN AND LINE FEED FUNCTIONS. A TOTAL OF FIVE BELLS WILL 
BE SOUNDED. THIS TEST WILL ALSO AUDIBLY INDICATE AN END OF A COMPLETE 
PASS THROUGH THE PRINTING TEST SEQUENCE. 
EXAMPLE: 

(BEL> BELL <BEL>» <SP> TEST <BEL> <CR> 


‘BEL> <LF> <BEL> <CR> 
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6.3 OPTION TESTS 
6.3.1 TEST SO - SECONDARY CHARACTER SET OPTION 


THIS TEST Is DESIGNED TO EXERCISE THE SECONDARY CHARACTER SET OPTION 

ESTING ABILITY TO SELECT EITHER CHARACTER SET UNDER WARE 
cont ROL F A0h THE aku AND ALSO TESTING THAT THE CORRECT CHARAC She ARE 
INTED WITHIN EACH SET. 


A NUMBER IS PRINTED AT THE LEFT MARGIN INDICATING WHICH CHARACTER SET 
IS BEING PRINTED. a INDICATES THE PRIMARY SET AND #2 INDICATES THE 
SECONDARY (APL) SET. FOLLOWING THE NUMBER THE APPROPRIATE CHARACTER 

DISTINGUISHED BY THE ABSENCE OR PRESENCE OF THE 8TH BIT IN EACH 
BHARACTER IS PRINTED IN ITS ENTIRETY. 


IF LESS THAN 98 COLUMNS ARE BEING TESTED, ADDITIONAL LINE‘S) WILL BE 
PRINTED TO COMPLETE EACH CHARACTER SET. 


EXAMPLE: 


#l= !"8$48°()...ETC..PRIMARY CHARACTER SET.. 
woz $1" ¥$%8"()...ETC. SECONDARY CHARACTER SET.. 
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6.4 MAINTENANCE AIDS 


THESE TESTS ARE PROVIDED AS ADDITIONAL DEBUGGING AND EXERCISING AIDS 
FOR THE LA180 PRINTER. A DETAILED DESCRIPTION OF EACH TEST FOLLOWS. 


6.4.1 TEST 60 - LIFE TEST 
THIS TEST Buns SCONTINUOUSLY AND of RUN AS AN INOIVIDUAL SPECIAL TEST ' 
BRONTE 2 LINES OF ot, iatraE rang rey SEQUENCE hepe Bs 
ONTI EACH CHARACTER IS OVERPRINTED 


C 
TIMES TO CONSERVE PAPER. onaT cm COMPLET ION OF EACH PASS THROUGH THE 
tog PRINTABLE CHARACTER SET, THE PASS COUNT WILL BE PRINTED ON THE 


re cee A COMPLETE PASS, WITH 132 COLUMNS IS APPROXIMATELY 10 


EXAMPLE: 
ARRARAARRARAAARARARA 
RARARRRRRARRRRARRRAR 

88 
BEBEBSBSSSB8SSB88E88 





6.4.2 TEST 61 - SCOPE DRIVE ROUTINE 


THE PURPOSE OF THIS TEST IS TO PROVIDE THE OPERATOR WITH A SHORT BUT 
COMPREHENSIVE SCOPE DRIVER ROUTINE FOR USE IN TROUBLE SHOOTING THE 
PRINTER AND INTERFACE CONTROL LOGIC WITH AN OSCILLISCOPE. 


THE SETTING OF THE Tar edit TCH OF THE 


DEPENDING ON , Ine Sa 
SWITCH REGISTER (SWITCH 09) ST REGISTER 10.1 HER CONTINUALLY SEND 
toe ae tt a IS SET IN THE I 


10, sO Tue Chae TER. SET te ao Se 


SoM SET THE DESIRE CHARACT DE 
SENDING CONTI y D att SE GLE CHARCF ULE LIN LINE ere up” uP SNDe TOE 
PROGRAM WILL HALT WAITING FOR” A CHARACTER SELECTION. WHEN SENDING 


INDIVIDUAL CHARACTERS OR IF SENDING NON-PRINTABLE CHARACTERS, NO LINE 
FEEDS OR CARRIAGE RETURNS WILL BE INSERTED BY THE PROGRA,1. 
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6.4.3 TEST 62 - LINE PRINT TEST 


TyPe0"-Gn “The "CONERLE’ KEYBOARD. 70. CHeNGE cuRtCTERS, REGELELY THiS 


TEST AND TYPE_ANO 
TOF ert LA18C IF THIS” TEST ter is” ceLecteD POND a CONSOLE TERMINAL "DOES Not 


6.4.4 TEST 63 -S§HARACTER PRINT TEST 


THIS TEST LOADS WHATEVER CHARACTER IS TYPED ON THE CONSOLE KEYBOARD TO 
THE LA1BO CHARACTER BY CHARACTER ALL TYPED CHARAC HARACTERS ARE ECHOED TO 
THe CONSOLE DEVICE AS THEY fie QADED TO. THE LAI80. EXTRA CARRIAGE 
RETURNS 1k EC HE C £ DEVICE TO AVOID 
OVERPRIN Ne LINES. EEDS THIS is TE TI Doel ecreDe AND A C TERMINAL 
DOES Not TENG AN ERROR ME WIL BE BE PRINTED ON THE LAISO. 


6.4.5 TEST 64 - SELECTED PATTERN PRINT TEST 
Dat R esiD ING IN STORAGE 19805 tts STRING eis Es BUFFEP WITH A STRING OF 


a Be IN S ESTABLISHED BY TYPING ON THE 
NATING T RING BY DEPRESSING EITHER CTL-A 


Ae MR 
ENTERED RUPTED CTL PERN Witt fetion = FIRST KEY DEPRESSED, PRINTING OF 


Ae ey Pa Pe ARP a Re eh hs 
REPRE 5 Gee B. Ri SEeCKaPD CTL fa yy 3 nit EACH LINE 
at nTED * LL Be ABC R'OF SPECIFIED 


NOTE THAT NO PRINT COMMAND CODE (LF,CR, OR FF) IS USED WHEN ENTERING 
PATTERNS TO BE REPEATED BY CTL-B. 


OPTIONALLY PRINT Bes CAN BE ENTERED INTO THE CHARACTER STRING TO 
OBTAIN ALMOST ANY peat RED age ~ a RY OF ACTIONS. SUCH A STRING SHOULD 
BE TERMINATED BY DE SING 


NOTE THAT THE STRING IS STORED AT THE END OF ALL DIAGNOSTIC CODING 
Mai ALLOWING IT TO BE OPEN-ENDED IN LENGTH (UP TO THE MEMORY 


TO STOP PRINTING AND ENTER A NEW STRING DEPRESS CTL-SPACE. TO SELECT 
a eT DEPRESS DELETE/RUBOUT. TO CHANGE THE NUMBER OF COLUMNS 


02 
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-ENABLE ABS, AMA 


:1edb partes” 1a7p2- FE? 
Baste, EQUIPMENT_CORP. 


PROGRAM BY ROBERT BAKER 


+ 
;#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
jEPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


‘sett. OPERATIONAL SWITCH SETTINGS 


is SWITCH USE 

:# 15 HALT ON ERROR 

;# 14 LOOP ON FRae 

ie 13 INHIBIT ERROR TYPEOUTS 

1 12 MANUAL TIMING 

ie 10 BELL ON ERROR 

;* 3 SNGL CHAR/FULL LINE - SCOPE ROUTINE 
te Q HALT & SELECT TEST 

:% 07--00 # COLUMNS AT START UP 

;# 05--00 TEST # SELECTION 

;* 06--00 CHAR SELECTION FOR SCOPE ROUTINE 


;##* SET ALL SWITCHES UP BEFORE ster oe THE PROGRAM TO USE THE 
; SOFTWARE SWITCH REGISTER CONTROL. MAKE SURE LOCATION 000176 
; CONTAINS THE DESIRED SWITCH SETTINGS BEFORE STARTING. 


TS ee! - -—- 
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BASIC DEFINITIONS 


-SBTTL BASIC DEFINITIONS 
jeri, ADDRESS OF THE STACK POINTER ### 1100 #%# 


“FOUN GAfeemon —sBRSTE DEFINITION oF ERROR us 


eee | eens DEF INITI 
its T= #iG00e aio eo TAB 


Re i ae i 
CRLF= 280 _ FoR aie RETURN -LINE FEED 
PS= 1 6 STATUS 
-EQUIV PS,PSW 
STKLMT= 177774 STACK LIMIT REGISTER 
PIRQ= 177772 ; ; PROGRAM REQUEST REGISTER 
DSWR= 177570 + OROWARE SWITCH REGISTER 
DDISP= 177570 ;HAROWARE DISPLAY REGISTER 
* #GENERAL PURPOSE peCISTR 
RO= 40 
Rl= %1 gin erie 
= %2 
R3= %3 
RY= x4 + Gist 
RS= 4S 38 
s “6 ;;GENERAL REGISTER 
R7= “7 $3 


(sane LEVEL DEFINITIONS 


PRO= g s sPRIORITY mt 0 
PRo= 0, SPR TORE TY L VEL E 
PR3= 186 ;;PRIORITY LEVEL 3 
PRY= PRT LeveL d 
PRE =p PRTORITY LEVEL & 
PR7= 340 PRIORITY LEVEL 7 
-*"SWITCH REGISTER" SWITCH DEFINITIONS 
GwiS= 100000 

SWi4= 40000 

SW13= 20000 

SWi2= 10000 

SWil= 4000 

Swi0= 2000 

SwOS= 1000 

Swos= 400 

SwO7= 200 

3 pe 40 

SwO4= 20 

SwO3= 10 

SW0e= 4 
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BASIC DEFINITIONS 


POE ED 
bes al 
= " aE Res BROT VTi 


* BOODDOOOWOWDOWDOWwWa 
DOWDWDWOOOOOO~—wre 


mmmmmmmmmm 
SSERSEESES 
<<<<<c<< 


aaa 


— 
wo 
i 
o 
 ?) Moor <<< 
innonna 


ane 


TPVECs 64 
PIRQVEC=240 


“ 
oo 


OSSBeBRESBEe 


D4 4 4 4 4 4 4 ee 
=e 
BERSZRELSS 
4 DOWDDWMWOWOWOMOMW 
4 4 Od 4 Ot 
AAA AAs 
OM nw LUIO NOW 


£££0 g 
3 


262828 


LO2 
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-*DATA BIT INITIONS (BITOO TO BITIS) 
rere hob 


VECTOR ADDRESSES 


:sTIME OUT AND OTHER ERRORS 

ss RESERV AND ILLEGAL INSTRUCTIONS 
>: TRACE TRAP 

::BREAKPOINT TRAP (BPT) 

z8 previ pirut TRAP (IOT) ##SCOPEs# 
: EMULATOR FRAP (EMT) *#ERROR*# 

- >" TRAP” 


ssTTY ieye 
3; TTY PRIN 
; ; PROGRAM 


OARD VECTOR 
TER VECTOR 
INTERRUPT REQUEST VECTOR 


MOe2 
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DZLAEB.P11 © 28-FEB-77 15:08 BASIC DEFINITIONS 
900015 CR=15 
18 ee at 


H  SEKSRSEKSSSLELASESAAS KALA SAA RAS EASSALAA AAR RA RAR LAAERRAAAAALLLLE 
‘ABTTL TRAP CATCHER 


00000 
LOCATIONS FROM 4 - 4 =0276 CONTAIN A a” <t2, HALT” 
0 CATCH ILLEGAL TRAPS 
re HACOGHTION CONTAINS 0 TO CATCH IMPROPERLY ye VECTORS 
900174 iste DISPREG: .WORD O ;;SOFTWARE DISPLAY REGISTER 
900176 00000 SWREG:  .WORD O ;;SOFTWARE SWITCH REGISTER 
.SBTTL ACT11 HOOKS 
© SEKKRSLEARASLA RARE RASA EE RAER AA ALE LAAARHERALE LARA LEAR AKER AEE 
S REQUIRED BY ACTII 
co0200 S$SVPC=. sSAVE PC 
DO0046 "246 
ooo046 E ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
oo00S2 O20000 “WORD 20000 :;2)SET LOC.S2 TO 20000 
000200 " =$SVPC :: RESTORE PC 


NOe 
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DZLAEB.P11  28-FEB-77 15:08 HOOKS 
3 SESE ARREARS 89898 8 4 9 J a a a kaa 
000030 230 
900030 007744 _—— ;EMT - ERROR HANDLER 
00003e 000000 
000100 -=100 
00010C 6566 LKSRV ;KW11-L INTERRUPT 
000102 30000 0 
000104 OO6SSE OCI ;KW11-P INTERRUPT 
000108 000000 Q 
3 REESE SEE 8 J 9 9 a ee a 
-SBTTL STARTING ADDRESSES 
000200 =200 
000200 000137 901174 JMP START ;GENERAL START 
000600 =600 
000600 000137 001210 JMP RESTRT ;RESTART - NO INTERACTIVE TESTS 
000604 000137 001220 JMP CONTRL ;G0 TO KEYBOARD CONTROL, 
;WILL DEFAULT TO SWITCH REG 
;IF CONSOLE DEVICE DOES NOT EXIST 
5p SEE RARER EE SE 9 gE A SE A Ea EE EEE 
-SBTTL COMMON TAGS 
001100 -=1100 
601108 177560 TKS: 177560 ;I1TY KYBO STATUS REG. ADDRESS 
11 17756e TKB: 177562 ;TTY KYBD BUFFER REG. ADDRESS 
ott oe 177564 TPS: 177564 ;I1TY PRINTER STATUS REG. ADDRES 
1106 177566 TPB: 177566 ;TTY PRINTER BUFFER REG. ADORES 


EQUIV TKS,S$TKS 
-EQUIV TKB,STKB 


“EQUIV TPB: SIP 


ET ee ee ee 


B03 
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i THE ot bOHING. 4 LOCATIONS ARE INITIALIZED 
001110 oo0000 LPKS: 0 ithe ceRiNT NTER KBD. STATUS REG ADDRESS 

‘BIT 6 = PhTERREPT ENABLE 
901112 900000 LPKB: 0 sLINE PRINTER KBO BUFFER REG ADDRESS 
001114 900000 LPS: sLINE PRI TA ADDRESS 

‘pty 1§ = ERROR C1 CIP PRRGLLEL INTERFACE } 

‘BIT 6 = INTERRUPT ENABLE 
001116 o00000 LPB: oO LINE PRINTER DATA BUFFER REG. ADDRESS 

BITS 0-6 = ASCII CHAR BUFFER 

‘BITS 7-15 = NOT 

: ANY T 

001120 oo0000 SERSW: 0 iis" MITCH. THE Er 1-BITS 


INTERE CED Algo” S ARE TO BE TESTED. 
SBEFAULT S ALL 0’S = PARALLEL INTERFACE. 


OCilee oo00c0cdi NUMLP: 1 HE NUMBER OF LA180’S WHICH THIS 
ipintoenTe, WILL ATTEMPT TO TEST. 


001124 175610 FSTSAD: 175610 ;FIRST LA18O_ ADDRESS TO BE USED IF _ INTERFACE- 


: TYPE INDICATED IN LOCATION SERSW IS SERIAL. 
001126 177510 FSTPAD: 177510 ;FIRST LAI8O ADDRESS TO BE USED IF INTERFACE- 
:TYPE INDICATED IN LOCATION SERSW IS PARALLEL. 
001130 9000000 ACTFST: 0 ;ACTUAL FIRST ADDRESS BEING USED 
;DURING PROGRAM EXECUTION. INITILIZED BY PROGRAM ITSELF 
Odil3se o0000C LPCTR: O ;LP COUNTER (USED BY PROGRAM ONLY) 
001134 172540 PLKS: 172540 ;KL11-P CLOCK STATUS REG. ADDRESS 
001136 172S4e CSBR: 172542 :KL11-P COUNT SET ADDRESS 
001140 177546 LKS: 177546 ;KWL1-L CLOCK STATUS REG. ADDRESS 
001142 177570 SWR: WORD 177570 ;SW_REG ADDRESS 


001144 177570 DISPLAY: .WORD 177570 DISPLAY ADP 


RE-B 


28-FEB-77 


000 


000 


MACY11 27(1006) 
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s 
STSTNM: .WORD 
WIDTH: .WORD 
STRONE: .BYT 
TRONE: .BYT' 
TLOOP: .BYTE 
CKFLAG: .BYTE 
$BELL: 23) 
SQUES: .ASCI 
SCRLF: .ASCII 
SLF: -ASCIZ 
gr": -ASCIZ 
SFr: -ASCIZ 
.EVEN 


ee 
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COMMON TAG 


a ie fat fed 
FLAG. (KYBD CTL) 


CLOCK OPTION FLAG 
:0 = NONE AVAILABLE 


tS RCH 
‘QUESTION MARK 


owes RETURN - LINE FEED 


conning RETURN ONLY 
FORM FEED 


HEHEHE HHH HEHEHE HHH HHH HEHEHE BBE BE 


tHe F FOLLOWING LOCATIONS ARE USED BY THE 
THE FILL CHARACTERS AS REQUIRED FOR 
THE TERMINAL AVAILABLE FLAG WILL BE SET 


;SET 


STPFLG: 


- EVEN 


-BYTE QO 

-BYTE @ 
-BYTE le ; 
BYTE 0 


TTY TYPE ROUTINES 
wrias CONSOLE TERMINALS 
PROGRAM. 


CHC TERE FOR FILLS 
R OF CHARAC 
Peat FILL 


L 
= UNAVAILABLE 


TERS REQUIRED 
CHARACTERS AFTER LINE FEED 
; TERMINAL UNAVAILABLE FLAG 


;BIT <07> = 1 


MAINDEC-11-D2L 
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WW 


SROBs ERE 


-— Perk ot at cee ob pp pe 


RRORTRERS 


440 


SB8888888SSSsssssss SSSE8S BS888sS 


AE-B 


MACY11 
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001146 
00004e 


=-8 


27( 1006) 


900005 
101142 
101144 

177576 


001142 
001144 


001142 
001144 


- ee eee 
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COMMON TAGS 
3 5 SERRE EERE LEER E EERE RERELE RARER EAEREREL SRA ER ER EE EEE EEE EE 
.SBTTL PROGRAM INITIALIZATION 
START: CLR $TSTNM T NUMBER TO ZERO 
CMP ast, 846 i BhecKe F IN ACT QUICK VERIFY 
—m P INTERVENTION TESTS IF YES 
RESTRT: Rov acd, at STH Pe} R TO 20 
CONTRL: MOV ae STSTNM ‘By beh HEL FLac 
STARTX: MOV 70, SWR : INITIALIZE oa Me ONTROL 
MOV Sun, Bishan 
.SBTTL INITIALIZE COMMON TAGS 
ACK, SP ;;SETUP THE STACK POINTER 
ss INITIALIZE A FEW Tes TORS 
HOV TRAP ase ine, VECTOR FOR TRAP CALLS 
;sPOWER FAILURE VECTOR 
MOV SRVEC?S $3 
CLR 53Gb PASS COUNT 
MOV SENDCT, SEOPCT =PROGRAM COUNTER 
;;SIZE FOR A SHI TCH REG elite IF NOT FOUND OR IT IS 
: EQUAL TO A “=1" THARE SWITCH. RE an 
MOV a c aa) ;; SAVE 
MOV 864S,d8ERRVEC ;:SET UP ERROR VECT 
MOV SWR sre TUP FOR A SWICH REGISTER 
pe x DTSe DISPLAY : TRY Fo ot re oR 
BNE ; t BRANCH HIF RO ine Riis bu Gr Teer nQGCURRED 
BR 65S + BRANCH T T 
64S: Hoy #655, (SP) :SET UP FTE 
65$: MOV ;;POINT TO SOFTWARE SWR 
MOV saecece eh 
66S: MOV (SP)+, SStRANES ;;RESTORE ERROR VECTOR 
MOV ISR, RO GET SWITCHES 
INC RO :CHECK IF ALL SWITCHES ARE UP 
BNE 6 :CONTINUE IF NOT 
MOV ‘TF UP, SET SOFTWARE SWITCH CONTROL 
MOV sorepRéeD DISPLAY’ 
6S: MOV SWR, RO ;GET SW REG 
BIC 8177400, - SAVE BITS 0-7 
CMP RO, #132 TEST 8 COLUMNS 
BGT § TOO BIG, DEFAULT TO 132(10) 
1S: CMP RO, #2. TEST T # COLUMNS 
BHIS § OK 
28: MOV #132. ,RO + BEFAULT TO 132(12) 
3S: MOY RO. WIDTH ‘SAVE # COLUMNS 
CLRB Loop RESET FLAGS 
CLRB § STRONE 
CLRB = TRONE 
CLR SVTST 
BR Os :REPLACE THIS INSTRUCTION WITH NOP (204) 


E03 
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MAINDEC-11-DZLAE-B MACY1 
D 15:08 INITIALIZE THE COMMON TAGS 


ZLAEB.Pit 28-FEB-77 
;T0 SKIP CLOCK TIMINGS 


bi e0s OOS? ocob 10% Sev ent ae SET TRAP RETURN 
An $ ; 
ata ft 533 as 004 MOV ae Td 
001516 112737 177777 OO1155 MO\'B 1. CKFLAG :SET CLOCK FLAG FOR KW11-P 
001524 000261 SEC ;SET 
0015¢8 10S777 177402 TSTB  @PLKS 1-P AVAILABLE? 

1 103011 BCC ‘VES. CHECK FOR CONSOLE TERMINAL 
001534 112737 000001 001155 MOVB #1, CKFLAG :SET CLOCK FLAG FOR K 
001542 ood261 SEC -SET C-BIT 
001544 | 177370 TSTB = ALKS ‘KW11-L AVAILABLE? 
001550 103002 BCC “YES CK FOR CONSOLE TERMINAL 
001552 001155 ° 20$:  CLRB CKFLAG :CLEAR CLOCK AVAILABLE FLAG - NONE T 
001556 737 001764 308: JSR PC, QUO1 s INET ILI ACTFST AND SELECT DRIVER 
001562 112737 177777 001173 MOVE = a- 1, STPFLG T UNAVAILABLE FLAG 
001570 000261 SEC T C-B1T 
001572 105777 177302 TSTB = ATKS ae, TERMINAL THERE? 
001576 103402 BCS 4§ = NO H 
001600 105037 001173 CLRB = STPFLG YES CLEAR CONSOLE UNAVAILABLE FLAG 
001604 103002 4g: BCC o$ ‘CONTINUE IF CONSOLE 
OO1606 104414 oO1S225 PRINT .NCMSG ; PRINT NO SONSOLE MESSAGE 
001612 005037 o00006 cs: CLR gu6 RESET TRAP VECTOR HALTS 
001616 005037 9009004 ¢LR #4 
001622 004737 O0293e JSR PC, QuO2 Te INTF. MISC. IF CONSOLE 

_SBTTL TYPE PROGR 
:; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

001626 2? 177777 INC FIRST TIME? 
001632 001022 BNE £75 t H IF NO 
001634 022737 o0S322 90004e CMP 8SENDAD, a842 Haat 
o01642 O01416 BEQ 675 ?BRANCH IF YES 
OC1644 194401 oo16Se2 TYPE 68S i TYPE ASCIZ STRING. 
091650 0600413 BR 7§ OVER THE ASCIZ 
meen jages: "ASCIZ <CRLF> #MAINDEC-11-D2LAE-Ba<CRLF> 
001700 005737 O01146 TST STSTNM ;WANT CONTROL NOW? 
001704 o02005 B CONTINUE 
901706 105737 001173 15S: TSTB =- STPFLG {TERMINAL T THERE? 
001712 100406 BMI 1 : DEFAULT TO Si REG CONTROL 
001714 000137 so744e JMP KYBOST YES GO TO KYBD CONTROL 
001720 032777 OOO4OO 177214 11%: BIT 8SW8, ISWR WANT TEST SELECTION? 
001726 001402 BE 12$ *NO, CHECK T 
001730 000137 006752 133: IMP SELECT YES, GO TO SI SELECTION HALT 
001734 013700 001146 123: MOV STSTNM, RO GET TEST 
901740 006300 ASL RO : SET NTER 
001742 005760 013356 TST TAT(RO) i heck” a EST IN TABLE 
001746 00 BGT 14$ :BRANCH IF IN TABL 
001750 002756 BLT 1S$ :END OF SEQUENCE SELECT TEST 
001752 005237 OO1146 INC $TSTNM : INCREMENT TEST 

901756 900760 BR 11 ; s CHECK NEXT TEST HUBBER IN TABLE 
801766 900170 0123256 14$: IMP JTAT(RO) TO TEST 
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ibaa 


pete 


ae 


002016 
002024 


eRe | 
8g BERR 


2 SESRERS 


902214 
002230 
34 


os 


4 
013737 
012737 
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046101 
043122 
046040 
052040 

000 
030501 
036440 


020124 
042524 
042101 
020123 
046114 
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TYPE PROGRAM NAME 


QU01: 


QU0e: 


708: 


78S: 
718: 


723: 


738: 


74S: 
755: 


788: 


773: 


Bem {2EeGS=no=Pev EL 


rereea.AcTrst, ie pooke er Bie SERIAL INTF. 
NEXT : Rs 

OeLORD CoP TRE ise TTeH 10 SARALLEL Lone 
Be Mee ABR RN ORESS 1ST is ea 

PC : RETURN 

STPFLG Is THERE A CONSOLE TERMINAL? 
"os SOLE 

33 iCR RUE RN SHIITCH SET? 

775 ; ZEROS=NO=PARALLEL =BRANCH 

718 : SERIAL 

725 j INTEREACED_ LAI80 TEST, CRLF 

735 # LAL 

AUMLP, -(SP) ‘PUT # OF LP’S ONTO TACK 


:TYPE # OF LP’S BEING TESTED 


74S : CRLF 
298 :FIRST PRINTER’ Ss. ADRESS 1s 
AcTFST,-(SP) ‘PUT VALUE ONTO 

: TYPE OCTAL NDDRESS 


6 

1 

74S ; CRLF 
C :EXIT 
“SERIAL / 


/INTERFACED LA180 TEST/<CRLF> 
/# LAIBO'S = / 


«CRLF > 
/FIRST PRINTER’S ADDRESS IS / 


/PARALLEL / 
768 ; PARALLEL 
*0$ ; CONTINUE 
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001120 
OO&644 
015567 
176612 


176600 


015626 


176556 


17E544 


O1SESi 


176522 


03 
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TYPE PROGRAM NAME 


5 EERE EERE AEE RE EE ERE EEE E EEE RAE EEE E ELLE EE EEA EEE EEE 
.SBTTL OPERATOR INTERVENTION TESTS 
SOLPSTITTITTTTLAATATAITTTITTATTTTALAALAPITTLATTTTTTTTTEATIT TTD ESS 
;TESTO - INTERFACE AND CONTROL TESTS (PARALLEL INTF ONLY? 

TEST ERROR AND READY BITS, PRINTER OFF LINE - POWER OFF 
FL 


TESTO: Is? SERSH :15 PA PARALLEL. INTF INDICATED? 
IMP EXIT 9 Ru ff T TEST 

29: TYPE, TOMSGO ae ahaa ha 

28$: CHECK + OHECK oor OPEN ROL 
TST aLPS 3 CHECK FOR ERROR CONDITION 
BMI 1$ 0K, ERROR SET 
ERROR a ERROR CLEAR, POWER OFF 

1S: TSTB = ALPS : CHECK "READY 
BPL 2s SET 
ERROR - READY err, POWER OFF 


Be 
; TEST ERROR AND READY BITS, PRINTER OFF LINE - POWER ON 
SOSTLSTTITTTLTSTATTEETLELEPTTTLATLDLALLTAAEEVELLALLATEETEDEELL EAD EDL EE 


2s: TYPE,  TOMSG1 TYPE INSTRUCTION - TURN POWER ON 
3$ HOF eK sHALT FOR OP ENTROL 
‘ ¥ aLPs Check ERR Ok 
BMI u§ RROR SET 
ERROR 3, ‘Eston CLEAR, PRINTER OFF LINE 
4g: TSTB = BLPS ; CHECK READY 
BPL c$ READY NOT SET 
ERROR 4 READY SET, PRINTER OFF LINE 
BR 3 RETEST 
SSOLIEPELOLTTTLALEEPFEDTLATTLELLEPETELTL AAAS SL FE SLGELELELMFEL EES EL EES A: thé 


;TEST ERROR AND READY BITS, PRINTER ON LINE 
SSOSLLELITTSELELETLETTLLLTLEEALEDETLETTLTELELELELEBFEDEEEEEDEELEERER LEE 


cs: TYPE  , TOMSG2 ;TYPE INSTRUCTION, TURN ON LINE 
HOLD WAIT FOR OPERATOR 
bS: CHECK :CHECK FOR CONTROL 


TST aLPS CHECK ERROR 
BPL 7$ ;0K, ERROR CLEAR 


MAINDEC-11-DZLAE-B 
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104420 
000005 


10401 
000771 
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176510 


015705 
OO000l2 176466 
176460 


176446 


015737 


176424 


176412 


176374 


HO3 
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ERROR 5 sERROR SET, PRINTER ON LINE 
BR Bs RETEST 
7S: STB PS ise K READY 
BMI 8$ READY SET 
ERROR b ‘Reto CLEAR, PRINTER ON LINE 


nd badeuidiadalicsnbadehandadustunsdanntinennibhsianaivenibeninnielecieted 


; TEST PAPER OUT SWITCH 
SOPTLIITTITTITTTTATTTALTLEETATTAALATTATATATLALATATPETITTASIATTTALLISS SS 


9S: T , TOMSG3 :T TRUCT PAPER OUT 
HOLD SATE FOR OPERATOR 

QS: CHECK :CHECK CONTROL 
MOV #12, aLPB :SEND LF 
TST LPs ‘CHECK FOR ERROR CONDITION 
BMI 10% 70K, ERROR SET 
ERROR ? ERROR CLEAR, PAPER OUT ERROR 
BR 9S :RETEST 

10$: TSTB  aLPS :CHECK READY 
BP 11$ : OK READY CLEAR 
ERROR 10 !READY SET, PAPER OUT, ON LINE 
BR 3g RETEST 


SSLPSIOOTTPTTTTATTDATTTTAT SETA SATTDATTAPETESATELEIDVTELTELEALEL ELAS EL EE 


; TEST ABILITY TO CLEAR ERROR CONDITION 
SOLASTPTTISSSTAITTEEESTLAPTEELTTSATPETTLETTLEDAALETEETESTEPTMTDLDEEE EEE 


11S: TYPE  ,TOMSGH Tyre INSTRUCT ION RESET 8 ON LINE 
HOLD OR OPERATOR 
12$: CHECK :CHECK FOR CONTROL 
TST aLPs CHECK ERROR 
BPL 13$ ERROR CLEAR 
ERROR 11 + ORAOR DID NOT CLEAR 
BR 12$ PRET EST 
13$: TSTB  aLPS :CHECK READY 
BMI $ 0K, READY SET 
ERROR 12 ; READY NOT SET 
BR 138 :RETEST 


SSLASSELAFFOESOLITSLFTTEETTTADEEEPEAEDPELOATELTEEALTTDTDLLERPLALEEALEA EG Gs 


;CHECK ERROR & READY BITS AFTER RESET INSTRUCTION 
SALIIITLTISLTLTT ITAL ELTA LEATILESTTEEEPTTALPEALELLEEDELEELELES EDS 


S4ASG GE 


14$: CHECK ;CHECK CONTROL 
RESET ‘CLEAR WORLD 
1st aLPs :CHECK ERROR 
ERFOR i? tok "Bit ELEAR AFTER RESET INSTR. 


i me ee ese eee 


I03 
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DZLAEB.P11  28-FEB-77 15:08 OPERATOR INTERVENTION TESTS 
15S: K TROL 
Rae! ee am 
176356 aLPs ; 
BMI 16$ 
ERROR 14, Reo, BT ee AFTER RESET INSTR. 





L cavvatianibaaaaiupaetenadannnneidasnssceniantedensianmmsecieweniens 


. CHECK THAT LOA CHAR BUFFER RESETS READY BIT 
TE OERINTER BOee G0 BACK READY. 
See a ong od Ma ieee tern ead 
902544 104420 163: CHECK 
002546 o0S005 CLR R aha R fhe on OUT COUNTER 
002550 012777 o0001S 176340 MOV #15, aLP8 LOAD CARRIAGE RETURN INTO BUFFER 
1 1763 TSTB ps if te ADY 
1 17 Y CLEAR 
10401 oR 15 READY BIT NOT CLEAR WHEN CHAR LOADED 
000766 BR 16$ : RETEST 
70 777 176320 178: Ist alps iGHECK RROR 
1 L 1 CLEAR 
002576 104016 ERROR 16 “ERROR BIT gLe AFTER CHAR LOAD 
002600 000761 BR 16$ RETEST 
002602 105777 176306 18$: TSTB  aLPS ‘PRINTER STILL BUSY 
100404 BMI 19$ ;NO, NEXT TEST 
062616 o0S20s INC RS §. INC TIME 
002612 001366 BNE 17$ WAIT FOR FLAG 
002614 104017 ERROR 17 NO, TOO LONG 
002616 o00752 BR 16S iRETEST 


SSSLOITLTLATIATLTTTT AAPA ET STPTTELLTPETLTATTEATETEDTLD EDEL EDELELTEEEEEES 


;CHECK_INTERRUPT LEVEL OF PRINTER 
;PRINTER SHOULD BE AT LEVEL 4 


{TEST THAT PRINTER WILL NOT INTERRUPT ABOVE LEVEL 3 
SAALISITILTPLTTTTTLTATTLELEEETPELETLEETESTETLTAEEEEEEEELELLDDDPEED LADLE 


902620 012705 o00340 19$: MOV #PR7, RS ;SET FIRST LEVEL 
002624 104420 20$: CHECK CHECK CONTROL 

002626 012737 002730 oco0e00 MOV #23$ , 200 :SET INTERRUPT RETURN 

002634 bea? 0340 900202 MOV #PR7 202 pane PRIORITY. 7 ON INTERRUPT 
002642 176246 TST aLPS RROR 

002646 100002 BPL 21S 70K, ERROR CLEAR 

002650 104020 ERROR 20 “ERROR BIT SET 

002652 000764 BR 20S RETEST 

002654 105777 176234 21$: STB  aLPS *CHECK READY 

002660 100402 BMI 225 :0K, READY SET 

00262 1o4ge! ERROR 21 jREADY BIT NOT SET 

002664 00075 BR 20S RETEST 

002666 225 

002666 MOV :;PUT NEW PS ON 


010546 RS,-(SP) STACK 
002670 Ole746 002676 MOV #64, -(SP) ;;PUT NEW PC ON STACK 


JO3 
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DZLAEB.P11 § 28-FEB-77 15:08 
mn ooo002 a RTI ;;POP NEW PC AND PS 
76 052777 000100 176210 ot #B1T6,aLPS ;SET PRINTER INT. ENABLE 
002704 o00240 NOP : DELAY 
902706 042777 100 176200 BIC #8175 ,aLPS i CLEAR PRINTER INT. ENABLE 
4 162705 84 :SET NEXT LEVEL 
bused 020527 000140 CHP RS, kPR3 sLEVEL 3° + oa 
Bosese | BOO7Se Be git NBS’ TeSY ARTS LEVEL 
002730 022626 23$: CMP (SP)+, (SP)+ ;RESTORE STACK 
00273e 14 2 ERROR 22 : INTERRUPT ABOVE LEVEL 3 
33 BR 20S :RETEST 
SOCPPTLIALATTTTTTIATTAT LATTA TAATTPITAATTTTTA TATA AT ATTA AA SATA T AALS ES 
:TEST ABILITY OF PRINTER TO INTERRUPT AT ALL PRIORITY LEVELS BELOW 4 
SSPVPTISATATTITATATTTALTAT LEAT TTTAATATT AEST ATA AETATEAE SALAS SEES LES ESS 
002736 104420 24$: CHECK ;CHECK FOR CONTROL 
002740 012737 003024 oco0200 MOV #273, 200 :SET INTERRUPT RETURN 
one7s Og 772 176142 TST aps ; CHECK F 
1 L 5 : RROR CLE 
002754 104020 ERROR 20 “ERROR BIT SET 
002756 000767 BR o4S RETEST 
002760 105777 176130 25$: STB LPs :CHECK READY 
002764 100402 BMI 26S 0K, READY SET 
002766 104021 ERROR 21 ?READY CLEAR 
002770 ome 24g RETEST 
Te 010546 : MOV RS,-(SP) ;;PUT NEW PS ON STACK 
002774 012746 003002 MOV #65$, -(SP) ::PUT NEW PC ON STACK 
003000 060062 _ RTI ;;POP NEW PC AND PS 
Boson 052777 OOD100 176104 * -gIs #8176, aLPS ;SET PRINTER INTR. ENABLE 
003010 o0d240 NOP : DELAY 
003012 042777 OO00100 176074 BIC #BIT6, aLPS : CLEAR PRINTER INTR. ENABLE 
p525e0 ERROR 3 *NO_INTERRUPT BELOW LEVEL 4 
$ sRETEST 
003024 042777 OD0100 176062 27S: BIC #8176, 2LPS ; CLEAR PRINTER INTR. ENABLE 
83034 765768 oo0040 SUB #40, R5 sSET NEXT LEVEL cr 
Bp sbue Bossa 000137 o00200 MOV Tk 200 : oF There TEONe at 2beY 553 
012737 001174 o00202 NOV START, 202 sales eae 
BD Sb yet 003066 MOV wees. -(SP) PUT NEW Pe N STACK 
003064 o00002 RTI ::POP NEW PC AND PS 
003066 66S: 
003066 000137 ODbE44 IMP EXIT EXIT TEST 


KO3 
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OZLAEB.Pil  28-FEB-77 15:08 OPERATOR INTERVENTION TESTS 
ALAA ddd 
;TEST1 - TOP OF FORM SWITCH TEST 


SOCSATITATTTTTIATTTTTAIATTTTTATATAAATAATESTATTEATDATTTTATSS ASAE ASA SSSA 


Ja la Ai Ae SBS 


Be 





003104 012700 oo00ss MOV #55, R0 :SET DASH CHAR 
RBH IB yao a eee 
116 104401 01 3$: TYPE IMSG3 TYPE INSTRUCTIONS 
taal 0 003130 Hoy RS,1S :SET SWITCH SETTING FOR MESG 
1 18: 7 0 
003132 194401 016067 T , TIMSGH cal tae Ne oh 
Beatas | to44Sd Hob, re 
003142 104414 001166 PRINT  ,SFF 
003146 104414 015777 PRINT ‘TIMSGL s1SSe FOR 
00315¢ 01087 003160 HOV RS, 25 SET FORM FEED BREE hot FOR MESG 
1 es: SHORD 0 
eit 104414 016006 PRIN TIMSG2 FINISH ME 
CMP (RS)+, (RS)+ INC T POINTER 
T RS) iH K 3 0 SEE IF DONE TEST 
PRINT F PAPER WHEN DONE 
he eft :ROVANEE 
4g: .ASCIZ 437 FORM FEED SWITCH SETTINGS 
ASCIZ 73.5/ 
. 4/4 
“ABC /5.5/ 
bs 4/67 
-ASCIZ 477 
ASCIZ 7 8/ 
I 78.5/ ‘ 
* 411 7 
ASCIZ 12 7 
003254 1 "ASCIZ 714 7 
003260 000000 “WORD 0 END OF TABLE 


eS a mB 
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aS 
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175620 
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SAOSISIATTTAATTTATTTAATAAATTTT TAS AASSTALTATTAT TT TDATTIT SATS TATT SSSA S SS 
Teste - PRINT SPEED TIMING 
A SHI PATTERN 15 PRI INTED FOR ONE, eb 
He NES PRINT’ 
tit NG NUE BONE By TA ie OTION IF EI IF EITHER AVAILABLE. 
RWISE, MANUAL TIMING WILL BE USED TO 08 . PRINT TIMINGS. 
A HARDWARE SUITCH RE REGISTER 15 NOT BVATLABLE THIS TEST 
1a BE RUN WITHOUT A CLOCK OPTION AVAILABLE. THE 
:PROGRAM WILL AUTOMATICALLY SKIP Tits mune IF IT CANNOT BE RUN. 
SOFAS LVATTAATTAATIATAAATATATAA ATT AATT ATTA ATTA TTA AA ESAT STEALS SSAA ASSES 


TEST2: PRTHOR CRIT ST HEADER 
MOV #SPD, TORTN RETURN 
CLR ter EAR LINE COUNT 
TSTB «CK *TEST CLOCK FLAG 
BEQ ry + NONE , MANUAL TIMING 
BLT 5 Lo an 
MOV MINCNT, CNTR i Kula CLOCK COUNT 
MOV 88176, aLKS NABLE CLOCK INTERRUPT 
BR TesP i START PRINTING 
1S MOV MINCNT,@CSBR OCK COUNT 
MOV $105, JPLKS CLOCK 
BR T2sP sSTBRT Be PRINTING 
4S: chp SuR, #177570 : SW REG ADR 
PRINT  ,T2EM ;CONTINUE IF HARDWARE 
TYPE Teen :PRINT ERRORS MESG 
IMP tx iE T TEST 
2S: YPE MANMSG ‘PRINT INSTRUCTIONS 
3S: BIT kSWi2, ISWR S12 UP? 
BEQ NO, WAIT FOR START 
T2SP: MOV #41, Re ;SET START CHAR 
NOV. WEOTH,RI BET EOLUHN COUNT 
LOAD $ ShaR 
DEC Rl DEC CHAR COUNT ioe 
Pe pi *NEXT Bap _ 
CMP RO, #177 *CHECK CHAR 
BNE 3$ > OK CONTINUE 
MOV #40,RO >SEt CHAR = E 
us BR INT aLF Fe a 
TNE +1 he T 
TSTB CKFLAG USING CLOCK TIMING? onc 
Bye Baui2, asuR iSite ane: 
Nee CB Beatin ROUTINE 
cs: INC R2 INC STAR 
CMP Re, #177 : CHECK rT 


A ee ~- + —ee 
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Bostee BOOTHS Be C*t sp Ree POT ART CHAR 


SSAITTIATAATITIATTATAATTTTTATAAATAATTAD DATTA DATTA TTA AS ASA A ALAS 


;ROUTINE TO PRINT/TYPE MEASURED PRINT SPEED FOR TEST 2. 
SSUITATTTTTTTTTTTAATATTT TTT TATATATTATATTATT TATA T TATA A ASS 


003500 012700 000177 SPD: MOV #177,RO ;SET RUBOUT CHAR 
Boseoe o440l O1S4 ver iChERF fiese Corer 
1 1eaaod sete PRINT PRED ’ 
16 105737 001155 TSTB © OKFLAG ;USING CLOCK? 
003522 001004 BNE 1$ YES, BRANCH 
003524 1O44GL 015511 TYPE.  ,PRSP ADD’ WORD “APPROXIMATELY” TO MESG 
003530 104414 015511 a PRINT  ‘PRSP 
003534 O1044%6 MOV RY, -(SP) ;;PUSH R4Y ON STACK 
047 012650 SR : “¢ 
i 17 OAD : 
44 010446 MOV RY, -(SP) s R4 ON STACK 
Ooses ieee OL ERIK? =. PRSP i ORB MORE OF MESG 
a ‘ 
104401 pt 2255 ren preps 
003560 013746 001150 MOV WIDTH, -(SP) s#COLUMNS ON STACK 
Bee iba ree Tet 
104401 0155Si TYPE PRSPY ;TYPE END OF MESG 
003572 013746 001150 MOV WIDTH, -(SP) ># COLUMNS ON STACK AGAIN 
003576 004737 012650 SR PC, $SB2D “CONVERT # 
BO See 104417 CNLOAD LOAD # 
003604 104414 015551 PRINT ,PRSP4Y :PRINT MESG ON LAILSO 
003610 000137 O06644 JMP ExIT EXIT TEST 


ee et a | ee ——-— -e¢ 
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DZLAES.P11 28-FEB-77 15:08 OPERATOR INTERVENTION TESTS 


-SBTTL PRINTING TESTS 
LLL dd 


;TEST20 - DATA TRANSFER PATHS TEST 
sTHIS TEST PRINTS 16 LINES OF ALTERNATING #’S AND U’S IN A CHECKERBOARD 


SSFLIITITTTATTLTTTATTTATTATAATATT TATA TATT ATTA TTT TESTE A SSAA LASSI TASS 


Boseie biz703 gs2us2 mnengy hoy a" 20,83 iat cheese 
Beses8 Bisse; oo1uso a 1 ROTH. RI ie UMN 
003634 104415 : 
903640 905301 Bee, Bec coun COUNT 
Bosesd | pods aia Aa ert Rext ‘a START CHAR 
Go3e¥e 10N414 O01162 PRINT LF ;PRINT LINE a 
003654 oor aed BNE FINISH TEST 

000137 o0b644 IMP «EXIT SEXIT WHEN DONE 





BO4 
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ALLA ddd 
; TEST21 - HEAD POSITIONING TEST 


:THIS TEST PRINTS A pineye Lite OF ALTERNATING 0’S AND SPACES 
; THEN FILLS IN THE S WITH X’S ONE AT A TIME. 


SSOOTITTITATTITTIITTATTTTIATATTATTTTTATTTT AAT ATTATTAT ATTA SEPP ATES ASAE S SS 


003662 104413 TEST21: PRTHOR PRINT TEST HEADER 
003664 013701 001150 MOV WIDTH, RIL >SET COLUMN COUN 
0036 012700 000060 1S: MOV #60, RO >SET CHAR 

74 104415 LOAD *LOAD CHAR 
003676 005301 DEC Rl DEC fife COUNT 
003700 001405 BEQ 2s sPRI INE WHEN LOADED 
003702 012700 O0CD40 MOV #40, RO :SE SPACE CHAR 
003706 104415 LOAD *LOAD SPACE 
003710 OuS301 DEC Ri ;DEC CHAR COUNT 
003712 001366 BNE 1$ FINISH LINE 
003714 104414 001164 2s PRINT ,SCR sPRINI NE 
003720 Ol2702 900002 MOV 2 Re >SET FIRST CHAR COUNT 
003724 ot 000040 3$ #40, RO j SET CHAR 
003730 010201 MOV Re, R1 *GET CHAR COUNT 
003732 005301 DEC Rl SUBTRACT ONE 
003734 104416 MLOAD “LOAD SPACES 
003736 012700 000130 MOV #’X,RO :SET X CHAR 
Sere tel pe tite 

104414 001164 INT ,SCR “PRINT LINE 

003750 062702 ADD k2, ADD 2 TO CHAR COUNT 
003754 37 O011S0 CMP Re, WIDTH : INE? 
003760 101761 BLOS 3 NO, FINISH LINE 
003762 104414 O01162 PRINT ,SLF YES, ADVANCE PAPER 
003766 000137 O06644 EXIT !EXIt TEST 


mm mn ree ee ee ee; ne re ee ee ee ee --- _- —— 


CO4 
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ALLLAA Ld 
; TESTee - BACKSPACE TEST 


2 LINES OF X’S INTERSPACED WITH DASHES WILL BE ay lie BY PRINTING A SLASH, 
eee each A BACKSPACE, AND THEN PRINTING A GACKSLASH 


X CHAR. 
A NAXTMUM oF 137 COLUMNS WILL BE PRINTED BY THIS TEST. 
ALA ddd 


003772 104413 TEST22: PRTHOR iPR NT Est HEADER 
003774 012702 o0000e MOV #2, R2 COUNT 

004000 013701 001150 1S: MOV WIOTH, RI iE Eten COUN 
004004 020127 000177 CMP Rl, #127. ites COLUMNS 
004010 03402 BLE TER THAN 127? 
004012 012701 000177 MOV #127. ,R1 T T0 127 
004016 104414 Oo40S4 2s: PRINT ,10$ ie ASH-BS-BACKSLASH 
o04022 1 DEC Ri C CLOUMN COUNT 
004024 0140S BEQ 3$ *PRINT LINE IF DONE 
004026 012700 oo00ss HOV #55,RO SET I OF DASH 
cates 1 DEC R1 :DEC COLUMN COUNT 
OpaONe Teuaed oOLI6e 38 ne spANiSH bine 

904044 005302 DEC Re :DEC LINE COUNT 

O0404% 001354 BNE 1$ sEINISH TEST 

O040SO 000137 ooEe44 IMP EXIT ‘EXIT TEST 

oo40S4 o040S7 900134 10S: SASCIZ <S7><10><134> 


. EVEN 


DO4 
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LALLA dda 
; TEST23 - CHARACTER GENERATOR TEST 


PER eT EE RENTS R. SINGLE LAI £30 CHARACTERS LONG) OF EACH PRINTABLE CHAR 


SSAITATLTTITELAETLTTALTTATTATTATTATTALA ATTA AESETTT AAA TTSATLPEASL ATTA SS 


oo4060 104413 TEST23: PRTHOR sPRINT TEST HEADER 
004062 012700 oo0040 MOV #40, RO SET FIRST 

004066 Ole701 000036 1S: MOV #30: ,R1 SET CHAR cSUNT 
904072 104416 MLOAD ‘LOAD LINE 
004074 104414 OO116e2 PRINT ,SLF :PRINT LINE 
904109 OdoS200 INC ist NEXT CHAR 
004102 7? 0900177 CMP RO, #177 = RUBOUT 
004106 601367 BNE FINISH dest 
004110 000137 OO&644 IMP EXIT NON 


MAINDEC-11-D2L 
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Or 


zigeteeseeseraenas 
SVS LHF PHS FGSRKVRY 


BERS 


AE-B 
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—-O000- 
S 
— 
8 


000041 
000036 


000040 


Borie 


001154 
040000 


006644 
000036 


001159 
000177 
000041 


174664 


ee ee 


04 
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AAA 
; TEST24 - NON-PRINTABLE CHARACTER TEST 


; THIS feet ENS A oie Le SR TING PATTERN WITH NON-PRINTABLE AReRS OF THE 


TER BUFFER_IN THE LA18O. IS LOOPED ON, THE SW 
: PATTERN WILL CONTINUE, 30 LINES PRINTED EACH TIME THE TEST IS L OPED. 


TERS TO TEST ALL_AREAS 
IF "furs TEST 


SSOSSPSSAATTTIATAATTTATTATSTAAATTATELAAT ATTA TT TS AASTSSAT SSAA A AAAS S SS 


TEST24: PRTHOR ce T HEADER 
MOV #41,R2 CHAR 
MOV : : SET PINE COUNT 
MOV WIOTH,R1 :GET COLUMN COUNT 
MOV S.; ie BUFFER SIZE 
SUB 1,R3 : SUBTRACT COLUMNS COUNT 
2s: Sue #29. ,F3 iS ERR HON-PRENT SHAR COUNT BY 29 
INC RY :R4 = NON-PRINT CHAR INC COUNT 
3S: CLR 3 ;CLEAR NON-PRINT CHAR COUNT 2ND BLOCK 
4§: SUB 8255. ,R1 CALCULATE # NON-PRINT CHARS, 1ST SLOCK 
SUB R3,R1 
JSR PC. 10$ ;LOAD 1ST BLOCK OF NON-PRINT CHAPS 
MOV WIDTH, R1 *SET PRINTABLE CHARS (COLUMN CUUNT) 
MOV Re, RO SET FIRST PRINT CHAR 
cs: LOAD *LOAD PRINT c 
DEC R1 :DEC CHAR COUNT 
BEQ 6$ “BRANCH IF DONE PRINTABLE CHARS 
INC RO :NEXT CHAR 
CMP RO, #177 :CHECK CHAR 
BNE 7 :0K = CONTI 
MOV #40, RO sRESET CHAR = SPACE 
BR 3 : CONTINUE 
ST Fells beat ag CDA NON 
INT See ! TAT ENEO oe 
DEC RS ;DEC LINE COUNT 
GT es {CONTINUE mi 
STB LOOP *LOOP ON 
BNE 7$ VES INITIALIZE 
BIT 8SW14, ISWR “LOOP ON TEST? 
BNE 7$ Yes INITIALIZE 
JMP EXIT XIT T 
7S: MOV #30. ,RS has? TERRE. C 
cLR RS RR NaN-PRINT TonaR COUNT 
Q$: ADD 4 R3 tne TTONC PRAT CHAR COUNT, 2ND BLOCK 
9g: NOY WIDTH, Rl j RESET COLUMN COUNT 
ins Ro, #177 te ce START CHAR 
BNE q -OK, CONTINUE 
MOY #41,Re RESET START CHAR 


MAINDEC-11-D2L 
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000717 


000007 
000010 
000012 
000014 
000915 
000040 
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BR 4§ ; CONTINUE 
AA id 
;ROUTINE TO LOAD NON-PRINTABLE CHARACTERS FOR TEST 24. 
SSOILTITPSEITATATTTTITTTTATTLTTAT TATA ATTIEITTTTDTLTAT TETAS T TTS SSD 


10$: TST Rl ;TEST CHAR COUNT 
BEQ 14S “RETURN IF ZERO 
11S: CLR RO ‘SET FARSI NON-PRINT CHAR 
125: LOAD iL 
DEC - sDEC CHAR COUNT 
138: PLE REX CHAR 
CMP RO, #7 :CHAR = BELL ? 
BEQ $ YES, NEXT CHAR 
CMP RO, #10 :CHAR = BS? 
BEQ $ YES, NEXT CHAR 
CMP RO, #12 :CHAR = LF? 
BEQ ‘YES, NEXT CHAR 
CMP RO. #14 :CHAR = FF? 
BEQ YES, NEXT CHAR 
CMP RO, #15 :CHAR = CR? 
BEG $ YES, NEXT CHAR 
CMP 0, #40 >CHAR = ? 
BE ¢ :YES, RESET CHAR 
BR 123 : CONTINUE 
14$: RTS PC RETURN 
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SPOLOTTLATIITTATTTSTATASTATELSTTATTATTDETTTTAALTTTTASTTAAA TAS TTATS SSE 
;TESTeS - BUFFER TEST 

THIS TEST CHECKS THE witty Ma eer ae se LA180 whe eo ING. 
ZFOUR L Lines OF (Wi TH use TWEEN R Pal NT ING COND 
LINE). THESE L AN TO ch OK . PROPER oH - NIOTH. 
SANY E PRINTED Inicates AN INCORRECT LOAD OR BUFFER 


SOCLIIIPPATTAALPETTTTAATATSTPTTTTAATTTATTPETTTATTS STASIS TTATAPTTAS AS SS 


004408 104413 TEST25: PRTHDR :PRINT TEST HEADER 
004410 91270 ono020 MOV #16., RI : T CHAR COUNT 
oo4414 O1 000105 MOV #’E,RO : SET 
904420 104416 MLOAD :LOAD BUFFER 
Oo4422 012700 000177 MOV #177,RO >SET RUBCUT CHAR 
OO4426 104415 LOAD ‘CLEAR BUFFER 
004430 ooso02 CLR R2 :C CHAR COUNT 
004432 013701 001150 MOV WIDTH, RI >SET COLUMN COUNT 
004436 012700 000061 MOV #61,R0 ;SET CHAR 
po44#42 104415 18: LOAD LOAD CHAR 
OO4446 oF 5 " rc BEG AH Pant ae NE HEN T oRDED 
o044S0 o0S20e2 INC Re CHAR oun 
0044S? 020227 o00144 CMP Re, #100 : AONE OREST Oe 
OO4456 002771 BLT 1 NO, CONTINUE 
OC4460 O12700 000063 MOV #63,R0 :SET NEXT CHAR 
004464 020227 o00202 CMP Re, #130 : 3°S? 
004470 76 BLT 1§ :NO CONTINUE 
CO4472 012700 oD00b2 MOV #62, RO ‘YES, SET NEXT CHAR 
004476 000761 Be 1$ :CONTINUE LOADING CHARACTERS 
OO04SO0 104414 001162 25: PRINT ,$LF : PRINT 
004504 012701 000400 MOV 8256. RI :SET C OUNT 
004510 012700 900105 MOV 8°E,RO : 
004514 104416 MLO iL0 
bo¥a 1b 1 1162 PRINT F : INT LINE 

12701 376 MOV £254. .R1 >SET CHAR COUN 
004526 012700 o00105 MOV #°E,RO : 
Dove 0441 OAD : 

12700 000177 v 8177,R0 SET CHAR 
004540 104415 LOAD :CLEAR BUFFER 
Gee Gert) SNS mo” En eM slGoun 
ppuees piso atte MOV #°E, RO ‘eey CHAR 
O04556 104416 MLOAD :LOAD BUFFER 
OO4S60 013701 001150 MOV WIDTH, RI ;SET COLUMN COUNT 
poveb4 012700 O00069 MOV #60,R0 ¢ 

o0soo2 CLR Re CLEAR CHa CHAR COUNT 
004572 104415 3S: LOAD 
Bode Bem Borage pet a DE c coLun NE WHEN T onDED 
BoaeOR o0S202 NC R2 HIN CHaANS een 
004602 000143 CMP Re, #99 ONE SEROS? 

ooe774 BLT 3$ as CONTINUE 

19 612700 op0ce MOV $61, RO :YES, SET NEXT CHAR 

804614 OO00766 BR 3$ : CONTINUE 
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DZLAEB.P11  28-FEB-77 15:08 PRINTING TESTS 
16 Nea ras 4$: PRINT a s PRINT 
1 v bes. .R1 : OUNT 
eee 1goRh ie ney #°E, RO ‘aE C 
Seuesa Aiz7eB 000177 NO, 8177. RO AO OL 
Bee there io 7”. eee 
004642 olerae 900060 HOV #60, R0 SET CHAR ones 
vats SOT rarbtee WIDTH, RI ise] Gra COUNT 
ToaaTS ss: [OAD + POAD CHAR 
004660 DEC R2 :DEC GROUP COUNT 
Dobe 101 BNE 7 sEINISH 
4 NC *SET NEXT CHAR 
020027 900072 CMP RO, #72 :GOOD CHAR? 
004672 1034 BLO YES, CONTI 
74 O12 000060 MOV #60, RO NO, RESET CHAR TO ZERO 
004700 Ole702 o0001e 63: MOV 10. ,Re sRERET 
4 301 73: DEC 1 :DEC CHAR C 
001 BNE St *FINISH LINE 
004710 104414 001162 PRINT ,SLF : PRINT abi 
714 12701 MOV £256. .R1 *SET C QUNT 
7 1 105 MOV #E, RO -SET E CHAR 
pow7es 104416 ML OAD * 3 LORD BUFFER 
004 1500 abt MOV NROTHOR ‘eet ahs COUNT 
004736 104415 gS: LOAD *LOAD CHAR 
004740 005200 INC RO :SET NEXT CHAR 
004742 O20027 000072 CMP RO, #72 :GO0D CHAR? 
004746 103402 BLO 9g :YES, CONTINUE 
004750 012700 900060 MOV #60, RO RESET CHAR 
004754 005301 9S: DEC R1 DEC CHAR COUNT 
004756 001367 BNE 9$ :FINISH LINE 
904760 104414 o01162 PRINT .SLF :PRINT LINE 
004764 000137 OO6644 IMP EXIT :EXIT TEST 
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SSPPITTIITTTTTSTSTTTETTTTTLSTTASTITTTETTTTTTTTSTATTTTATATTTT STATS STS 
; TEST26 - OVERPRINT TEST 


THIS TEST PRINTS FOUR LINES OF ALTERNATING CHARACTERS AND SPACES 
;IN A CHECKERBOARD PATTERN. EACH LINE IS OVERPRINTED TWICE. 


SLFOTILITATATTTATTTAATTITISTTTATTITTAS ALATA TTTT ATT AATATI TESST ASST TASS SS 


TEST26: PRTHOR sent INT TEST HEADER 
MOV w6S, R3 se! 1 OveRbQInT cum 
1$: MOV 
25: MOV aa,fe RO 
BEQ cS Sick IF HOR ONE TEST 
MOV WIDTH,R1 UMN COUNT 
3S: LOAD +e A0 
SWwAB.SséRRO :SET NEXT CHAR 
DEC R1 :DEC COLUMN COUNT 
BNE 3$ *FINISH LINE 
DEC Re *DEC OVERPRINT COUN 
BEQ 4§ :BRANCH IF DONE SUN RPRINT 
PRINT ,$CR sPRINT LINE 


4§: BR NT He tN LINE 
> INC TABLE POINTER 
BR sBRnt ExT LINE 
cs: IMP EXIT 


6$: -ASCII /E / 


"WORD «0 SEND OF TABLE 


MAINDEC-11-DZLAE-B 
DZLAES.P11 28-FEB-77 


a SE 


ROPNMOTUS Ur VOC RLS 


BB 


oO 
TRUIA 
sas 


MACY11 27(1006) 
15:08 


001162 


002 004 
020 040 


- — ee ne -— we oe - _—— 


JO4 


O1-MAR-77 14:45 PAGE 47 
PRINTING TESTS 


LALLA dd 
3 TESTE? - MULTIPLE LINE FEED TEST 


NUMBER PRINTED INDICATES NUMBER OF LINE FEEDS FOLLOWING THAT LINE. 
; DASHED  \ataiaaee LINES ARE PRINTED TO AID IN CHECKING PROPER 


SCLITTITTLTTTTTATLTATATIALATTTTATTT EEDA TTTTATTA TET ATT SEL AST TASES ESSA 


TEST27: PRTHOR PRINT TEST eiEADER 
1s: move tRSS asp) Grete iro" aE 
JSR , $5820 
CNLOAD 
CMPBs«(R33), #1 tee 
BLOS 2 NT FULL DASH LINE IF 0 OR 1 
MOV #29. ,R1 ise DASH LENGTH 


CMPB (R3), #8. 
B38 teats - ‘Print 88 Bates 


2s: MOV WIDTH, Ri 


MP R1, #30. sek TT 
aie 4° Ok NUE 
MOV #30. ,R1 : aan 
a SEY DASH oe 
a gar slg 
MO StF RG eet LF 
MLOAD ‘LOAD LF’ 
TSTB. ss (RB) + INC T POINTER 
BGT 1$ FINISH ST 
IMP EXIT tEXIT TEST 
S$: -BYTE 1,2,4,8.,16.,32.,0 
EVEN 
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SOSFIIITTTSTTTILATATAATTTATLTTTASTAT PPTL TTLAATAS ESET PTTTAAAS ATTA AAAS 
; TEST30 - RIBBON FEED TEST 

: THIS TEST PRINTS A SINGLE COLUMN OF 24 LINES OF X’S DOWN THE LEFT 
HAND MARGIN OF THE PAGE. 


SSATTTTITAITTTATTITTATTTITTATTATATTTATALTPTATTTAETATTAT TS ASALS AAS IS TASS 


TEST30: PRTHOR :PRINT TEST HEADER 
. HOV 824. ,R1 sSET LINE COUNT 
° Bee & DEE LINE “cbUNT 
BNE 1$ :FINISH TEST 
JMP EXIT ‘EXIT TEST 
2S: .ASCIZ /X/<12) 
EVEN 


SSAITIATLIATTLPELTLTATATATTTIATEEDATTTAETAT PPD TTAETSETAAEEAA SAPS ADEA ESAS 
;TEST31 - BELL TEST 

ITHIS TEST WILL SOUND S BELLS WHILE PRINTING “BELL TEST™ 
SCOCSALASTALITAAPTATPTTTSLTPLTAITATATETTTTTAEDTALTEETASLEDLTPEAALL ES LESS 


TEST31: cone OO TE TEST HEADER 
SNP side Pert 1 Fest 
1S: -ASCIZ ¢<7>/BELL/<7>/ ESTP UD MUDHap 


. EVEN 


-— © +e eo -_- 
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.SBTTL END OF PASS ROUTINE 
: jyenesesertrr se ue ieeemCTT 
INCREMENT 7 He Pass MEER S) 
F THERES A MONITOR GO o1 
:#IF THERE ISN’T JUMP TO EXIT 


005262 SEOP: aa 

Oosees Obee37 INC SPASS 5 ; INCREMENT THE PASS NUMBER 
2737 100000 905336 BIC #100000, SPASS $sDON'T T ALLOW A NEG. NUMBER 

it | OP T * 33L 

peste | BeSoTS ao a 5; YES 

005304 012737 wae MOV (PC)+,a(PC)4 ::RESTORE COUNTER 

1 en q ORE 

phe yee oooo42 SGETH2 sy as42, RO ;;GET MONITOR ADDRESS 

005316 001405 BEQ. . SDOAGN j 3BRANCH IE NO HONTTOR 

Ope soe ope rat SENDAD: ISR PC, (RO) $360 no MONITOR 

Bpesoe ee SOOSup NOP ?:FOR 

005330 000240 NOP *:ACT1I 

ppesa5 5 000137 re IMP a(PC)+ ; sRETURN 

005334 006644 SRTNAD: .WORD EXIT 

905336 o00000 SPASS: .WORD O ;;NUMBER OF PASSES 


ttt ee - ~— +: —-< 
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-SBTTL OPTION TESTS 


SSOILITTATTATTATTITTTTTATTTTATATT ATTA TATA ATTA ATTETTLATTES STATA TASS SS 
?TEST SO - SECONDARY CHARACTER SET 
WL 


TESTSO: PRTHOR ;PRINT TEST HEADER 
MOV #4, TSOPCT *SET PAIR COUNT 
PRINT : } 81 
MOV D ; # 1) 
JSR PC, PRTSET :PRINT ENTIRE CHARACTER SET 
PRINT j PRINT Ree 
MOV 8240, CHL : SE (SET # 2) 
JSR PC, PRTSE jPRINT ENTI CHARACTER SET 
a . CROC NEAT PAIR COUNTER 
BFE 182 , Aen itis IF NOT iat 
IMP EXIT EXIT TEST 
TSOPCT: 0 tee. 
Tegne; | /BekTS | 7ads 
SP3:  .ASCIZ /- / 33 SPACES 
CHLD: O :CHARACTER HOLD 
PRTSET: MOV WIDTH,R1 ; OUNT 
SUB Rl +E Tush COUNT 
1S HOV CHLD, “FETCH CURRENT CHARACTER 
C Rl C CHAR COUNT 
BLE 3 Bran IF # 8 OF COLUMNS IS EXHAUSTED 
2S INC CHLD - iL 
BIC 4177600, R2 as BITS 
CMP #177,Re 1 = 177? 
BEG 48 NE + AST CHAR OF SET IS LOADED 
3S: PRINT ,S$LF 160 Lome btext oF 
MOV WIDTH, RI *SET COLUMN COUNT AGAIN 
SUB a ; T COUNT AGAIN 
PRINT ,SP3 "LOAD THREE SPACES 
§ s CONTINUE LOADING SET 
4§: PRINT SLF PRINT L LINE 
RTS 6 RETURN 
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5 ERE EE 48 488 98 8 gE EE 8 J 9 9 a a 
-SBTTL MAINTENANCE AIDS 


SSVITLATTTAATATETTATTTATTTTTTATATATATSTATTTTTAALA AAA T AAA LESS 
; TESTEO - LIFE TEST 
THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE CHARACTER 
;T SECOND L Lie IS OVERPRINTED tne te TO CONSERVE PAPER 
;AT_THE END OF EACH PASS THROUGH ENTIRE PRINTABLE CHARACTER 
;SET, THE PASS COUNT WILL BE PRINTED ON THE LAL8O. 


SSOSIOTTIATTTATATAATTATTAT ATLA TTTT TE EDTATAT ATT T LTPP ET TALES TT STALE S 


005540 005037 o0SéS2 TEST60: CLR PASCNT ;CLEAR PASS COUNT 
005544 104413 1$: PRTHOR “PRINT TEST HEADER, FEED BLANK LINES 
goss 012700 000041 MOV #41, RO :SET FIRST CHAR 
013701 001150 2s: MOV WIDTH, R1 :SET COLUMN COUNT 
005556 104416 MLOAD *LOAD LINE 
005550 104414 oO0116e PRINT ,SLF *PRINT LINE 
005564 O12702 oo000s MOV 5. Re :SET OVERPRINT COUNT 
005570 O1370 001150 3S: MOV WIDTH, RL *SET COLUMN COUNT 
Peers IOMIS ODLIGS mUONT SCR oe tne 
nna 00s302 DEC he : DEC OVERPRINT COUNT 
005604 001371 BNE 3$ :FINISH OVERPRINT 
OOSE06 4 001162 PRINT F ;ADVANCE PAPER 
1 INC SET NEXT CHAR 
005614 Oe0027 000177 CMP RO, #177 TEST CHAR RR 
eee a ee 
104414 015102 PRINT “LOAD PASS COUNT MESG 
1376 MOV PASCNT.-(SP)- ;:PUSH PASCNT ON STACK 
126 JSR $  AONVER 
wm 10819 001162 Saar SF ‘BR 
SO Aoorse BR i? eT ES Pass 
005652 000000 PASCNT: .WORD 0 :PASS COUNT 
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SASSATTITATTAATTATTTATTAATAATT AAT TTTTTASTTAETTTTT ATTA TAT PASTAS T TSA TSS 


;TESTEL - SCOPE DRIVE ROUTINE 
THIS TEST W WI LAD A CHARAC SET IN SWITCH REGISTER BITS 0-6 
IF Swi 3 DOwN BE LOADED & PR INTED, | (LF). 
TF auircn @ 18 UPe t ECHR WILL OADED ONCE AND THE PROGRAM 
‘WILL HALT. AB Che FEEbS OR RETURNS WILL BE SENT BY THE 
t PROGRAN- 
SSOPIITISTATTTLTATETETTATATSTATTTAATTTSTTAT TESTS ATTSTSTTTATAA ATTA ASSL 
TEST61: PRTHOR PRINT TEST HEADER 
BR 11 ; CHECK SWITCH REG FIRST 
10S: WIDTH, RI ; 
1S: MOV aSWR, RO : t 
BIC 810177, RO :MASK UNWANTED BITS 
LOAD $080 CHAR 
CMP RO, #15 Reset 
BEQ 11% teen RESET COLUMN COUNT 
CMP RO, #12 : 
BEQ 11$ YES, RESET UMN. COUNT 
CMP RO, #40 CHAR? 
BLO 124 YES, DON’T DEC COLUMN COUNT 
DEC Ri DEC’ COLUMN COUNT 
BR 12$ > CON 
11$: MOV WIDTH, RI *RESET COLUMN COUNT 
125: IT 8SW9, aSWR >TEST SWITCH 9 
BEQ 2$ :PRI LINE 
HALT 3 ONE HAR - HALT 
BR 1$ GET NEXT CHAR 
2s: TST Ri TEST COLUMN COUNT 
BGT 1$ IF NOT DONE LINE 
BEQ 3$ OADED MORE THAN WIDTH? 
NOV #177,RO :YES, CLEAR BUFFER 
33: PRINT ,SLF : PRINT LINE, ADVANCE PAPER 
BR 1o$ : CONTINUE 


—_— Li A iy tt A — - - «- = ene - 


we te or re em ee + 


COS 
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Pil TENANCE 
SOCATTPATTTTTTATTTETIATATTTAATS LSAT ATTTTAT TTA ETTTTETTAAPS TEAST AAS AS ASSL 
; TESTb2 - LINE PRINT TEST 
THIS TEST ofRINTS FULL LINES CONTINUOUSLY OF WHAT RTEVER. CHARACTER 
IS TYPED ON CONSOLE CHANGE C 
TMS TEST. 6 i “ BE PRINTED IF Sire 7 sEet RSE Sadat 
a EONSOLE™ RMINAL T 
sseshennoonanenennecesieeiaiebiiebainssenaneaseceanertinssentinriieeies 
005766 104413 TESTb2: PRTHDR eae I TEST HEADER 
005770 105737 001173 TSTB © STPFLG ie C TERMINAL EXISTS 
005774 100473 BMI F NONE 
005776 104401 0O1S205 TYPE TCHAR Wee INSTR 
006062 105777 173072 2s: TSTB 3s TKS Mi OR KYBD FLAG 
006006 100375 BPL 2s 
006010 104420 CHECK ;CHECK CHAR FOR CONTROL 
006012 017700 173064 MOV aTKB, RO : 
006016 O1 MOV RO,-(SP) :CHAR ONTO STACK 
006020 004 010344 JSR PC’ STYPEC *ECHO CHAR 
006024 01274 000200 MOV aCRLE Peat :SEND CR-LF 
006030 004737 010344 JSR CASTE 
006034 013701 O011S0 1$: MOV ff IDTH,R ;SET COLUMN COUNT 
006040 104416 MLOAD LINE 
o06042 104414 o01162 PRINT ,SLF PRINT” LINE 


NOs046 900772 BR 1g : CONTINUE 


—— = ee ee we - -_—_ 
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SCOSIITIATATTTSATTATTT ATTA ATSTTATTATTTTSES TAAL TTSTATPTSTILALASL ESAS SES 
; TESTE - CHARACTER PRINT TEST 

Turns TEs TEST ,OADS WHATEVER, CHARACTER, [S TYPED ON THE CONSOLE KEYBOARD 
lf IF This Tes Test. “1S SELECTED NO @ CONSOLE TERMINAL DOES NOT EXIST, 


PRINTED. 
‘dun cienieannadvebhieinedannaibiadeapneniibanediataiaaiebateldaiiaes 
006056 104413 TEST&3: PRTHOR :PRINT TEST HEADER 
006052 105737 001173 TSTB = STPFLG :CHECK IF TERMINAL EXISTS 
OO60SE 100442 BMI TERR ‘EXIT IF NONE 
906060 104401 015205 TYPE , TCHAR i! 
006064 104401 001161 TYPE $CRLF CR-LF 
006070 105777 173004 18: TST8 = TKS WAIT FOR KYBD FLAG 
006074 100375 1$ IWAIT F FLAG 
006076 104420 CHECK : CHECK ORR FOR CONTROL 
006100 017700 172776 MOV JTKB,RO 
006104 O1004% MOV RO,-{SP) CHAR ONTO STACK 
006106 004737 010344 JSR PC’ STYPEC ECHO CHAR 
006112 sows LOAD ‘LOAD CHAR 
006114 000015 CMP RO, #CR :SEND LF AFTER CR 
006120 001003 
O06 1ge 01274 oo0012 MOV ALF, ~(SP) 
ope iss ae o00012 2s: Bee RO, #LF :SEND CR AFTER LF 
006134 001003 BNE 
006136 012746 oooo1s MOV CR, -(SP) 
006142 Oo940s BR 4 
006144 000014 3S: CMP RO, sFF :SND CRLF AFTER FF 
906150 001347 BNE 
006152 012746 900200 MOV #CRLF,-(SP) 
006156 004737 C10344 4g: JSR PC, $TYPEC 
006162 o00742 BR 1$ ; CONTINUE 
006164 104414 O15225 TERR: PRINT ,NCMSG ;PRINT NO CONSOLE MESG 
066178 900137 9067Se JMP SELECT *RETURN TO SELECT TEST (HALT? 


oe -<-e - .°c+=<S- = <8 .©o <4-eeeee-Geee eo | oe eee Ooms os oe = —-- <- @ eo 


-- ee ee ea ee 8 eee ~ —- ee 
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SSSSIPPITTATTAPELATTATATAATATATTATTATT ALATA ST ATTA TLSTIS AAAS ES SETA SA ASST 
; TEST 64 - SELECTED PATTERN PRINT TEST 
i) TYPE DESIRED CHARACTER INCLUDING, WHERE APPROPRIATE, LAISO 
PRINT COMMANDS ( OR CR OR FF). TERMINATE STRING BY 
TYPING CTL-A. PRINTING WILL BEGIN 


3 OR 


2) TYPE 8 DESI PATTERN (TO BE AUTOMATICALLY REPEATED UNTIL 
BOND YSPECIFIED 9 OF COLUMNS is BEER non 
: che. UNSER PROPAGATING THE PATTERN 1 SHE PROPER OF COLUMNS 
; AN LF PRINT COMMAND WILL BE INSERTED AND PRINTING WILL BEGIN. 
?TO STOP PRINTING AND ENTER A NEW PATTERN TYPE CTL-SPACE. 

;0 SELECT A NEW TEST TYPE DELETE/ £RUBOUT. 

:T0 CHANGE # OF COLUMNS TYPE CTL 


RET ITN EE AE eae 


006174 104413 TEST64: PRTHOR sPRINT TEST HEADER 
006176 105737 001173 TST8  S$TPFLG *CHECK IF CONSOLE TERMINAL EXISTS 
006202 100770 BMI TERR “EXIT IF NONE 
006204 104401 o1s415 TYPE  , TEYMSG :TYPE BRIEF INST RS 
006210 104401 O15464 ACCEPT: TYPE TWOBEL RING CONSOLE BELL TWICE 
006214 012701 016174 MOV BTABLEY,R1 :SET POINTER LEFTMOST IN TABLE 
00220 012700 000177 #177,RO 
006224 104415 LOAD ;RESET PRINTER BUFFER POINTER. 
006226 105777 172646 2S: TST aTKS 
006232 100375 BPL 2$ WAIT FOR CONSOLE KBD FLAG 
006234 104420 CHECK CHECK FOR KBD CONTROL EHERACTERS 
- :AND CHECK SWITCHES ALSO. 

006236 017700 172640 MOV aTKB, RO :SAME CHAR TO RO 
006242 042700 177600 BIC #177600, RO :STRIP UNWANTED BITS 
D06246 700 O00001 CMP a RO 
006252 001435 BEQ cTla ;BRANCH IF CONTROL A 
006254 022700 soc002 CMP #2,R0 
006260 001440 BEQ cTLB s BRANC H IF co CONTROL 8 
O0be62e O10046 MOV RO, -(SP) 
006264 004737 010344 ISR PC’ $TYPEC ECHO CHARACTER TO CONSOLE 
006270 005726 TST (SP)}+ : ADJUST 
006272 110021 MOVE RO, (R1)+ : CHAR top PRINT TABLE 
006274 020027 o00015 CMP RO; #CR :SEND LF AFTER CR (TO CONSOLE) 
006300 001003 BNE 
006302 012746 o00012 MOV &LF,-(SP) 
906306 000413 BR 
006310 Oe0027 o00012 4$: CMP RO, #LF ;SEND CR AFTER LF (TO CONSOLE? 
006314 901003 BNE 6 
006316 012746 oo0015 HOV #CR, -(SP) 

eat 900014 6S: Bip RO, aFF ;SEND CRLF AFTER FF (TO CONSOLE) 
006330 001336 BNE 2s" CONTINUE ACCEPTING PATTERN 
006332 01274 oo0e200 MGV ACRLE -(SP) 
906336 004737 010344 gs: JSR C.$TYPEC 
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906342 p05 726 TST (SP)+ ;ADJUST STACK 
57 BR 2s :CONTINUE ACCEPTING PATTERN 
2701 016174 CTLA: CMP TABLEY, Ri NTER 
Bpeacs i4ie eoCtépae BE ime PRS ie To PATTERN 
006354 010137 006512 MOV R1, ENDADR j CURRENT POINTER 
006360 o0044e BR PRPAT GO PRINT NEW PA 
006362 022701 016174 CTLB: CMP STABLEM, ,R1 ;IF POINTER 15 Ler TMOST 
006366 001437 BEQ RESUME PRINTING PREVIOUS PATTERN 
006370 162701 016174 SUB #TABL64,R1 ‘GET PATTERN LENGTH INTO 
006374 013737 001150 O06S06 MOV WIDTH COLCTR ?GET # OF COLUMNS INTO COUNTER 
ee are Bis By Gage, ietednde Cer eaitren oe 
006412 pesca nate AoY STABLEY4 Per ka. TeH INTER 
O06416 163737 006510 oD&S06 SUB CHACTR Rian :REMAINING COLUMNS INTO COLCTR 
0064, ize PROPAT: MOVB = (R2)+, (RL) + :PROPAGATE PATTERN TO # OF SPECIFIED COLUMNS 
0064 006506 DEC COLCTR 
006432 003001 BGT 1$ 
006434 BR DUNCOL 
006436 005337 006510 18: DEC CHACTR 
O06442 00140 BEG DUNPAT 
006444 00076 BR PROPAT 
006446 012702 016174 DUNPAT: MOV 8TABLEY, Re ;RE-ADDRESS PATTERN 
0064S2 000764 BR PROPAT 
O064S4 112721 o00012 DUNCOL: MOVB aLF,(R1)+ ; INSERT LAISO PRINT COMMAND 
DOE460 010137 O0eS12 MOV R1, ENDADR 
006464 o00400 BR PRPAT ;GO PRINT REPEATED PATTERN 
DOB466 012701 016174 PRPAT: MOV #TABLO4,R1 ;SET POINTER LEFTMOST 
006472 116150 18: MOVB = (R1) 4+, RO 
006474 164415 LOAD ;LOAD CHAR (FROM RO) TO LA1aC 
;ALSO cHY ¢ CONSOLE KBD AND CPU SWS 
006476 020137 o06512 CMP R1, ENDADR :END OF THELE DATA” 
006502 001771 BEG RPA :YES, PRINT IT OVER. 
006504 900772 ar NO, CONTINUE LOADING LALSO SUFFER 
D0ES06 oO0000 COLCTR: 0 ; COLUMN COUNTER 
906519 900000 CHACTR: 0 ‘CHARACTER COUNTER 
006512 016240 ENDADR: sTABLG4+44 :HOLDS ENDING ADDR+! OF PRINT DATA. 
006514 005037 901120 TEST76: LR Ser Su CLEAR SHIT CH {7 10 PARALLEL ) en 
~ v ~ ive 
Bba7s7 Dosa 728 Pe a TYPE GATE Nise IF CONSOLE 
006530 000137 O06644 IMP EXIT TEST. 


006534 012737 052525 001120 TEST77: MOV #52525,SERSW SET SHITCH.( (TO SERIAL?) 
O06542 004737 601764 JSR Pc, QuOl :INITILIZE ACTFST AND SELECT DRIVER 
006546 004737 902032 TR PC’ OuDe : TYPE INTF MISC IF CONSOLE 

O065S52 000137 o06644 IMP ExtT ‘EXIT TEST 


MAINDEC=11-DZL 
OZLAEB.P11 


Q065 

O0eseE 
OO6S66 
006572 
006574 


006576 
006602 


006506 
006610 
006612 


AE-B 
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Bo0i 7 
005337 
00140 


004737 
000177 


000000 
ooco00 
007020 
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000022 
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006614 
oo00de 


001155 


000100 172306 
000100 172272 
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SASSILSSATATTATSITTTTTELTTTTTTATTTTATEDIATTTTASTTLTTTATADESATSA ETAT 
-SBTTL CLOCK INTERRUPT SERVICE ROUTINES 
TALL 


DCI: te ft a I Aah ae ott INTERRUPT 


ME OUT 
LKSRV: DEC CNTR C TIME COUNT 
BEG is ithe to 

1$: aOR PC, SROCI (Sete uu INTERRUPT 

7 IMP aTORTN pe RETURN 
CNTR: .WORD O sKW11-L TIMING COUNT 
TORTN: .WORD 0 ‘TIME OUT RETURN ADDRESS 
MINCNT: .WORD 7020 ;60 HZ LINE FREQ. MINUTE COUNT 

SET TO S670(8) FOR SO HZ. LINE FREQ. 

SAALLLALASSEATTATALAATESTTSALTSTLTETTATTLEATTSADALAEL SELES GHEEAGSG SASS 


;SUBROUTINE TO DISABLE CLOCK OPTION INTERRUPTS 
SALLILPLTITPTTTTTTTOTTELTLTTETTELETOTTVAESTTTLTTTAEEEBEPLLATTLEDS ED EDE 


SROCI: TSTB CKFLAG ‘ACTOR CLOCK OPTION FLAG 

BEG es URN IF a 

BLT 1$ :BRANCH_IF 

Bae BITE, aLKS RISA KWii-L ~TNTERRUPT 
1$: i #8IT6,adPLKS ;DISABLE KW11-P INTERRUPT 
es: S PC 


NAINDEC-11-DZLAE-B 
DZLAEB.Pil 28-FEB-77 15S: 


sneer! 


006710 
006714 
006 


e 
ana 


006 

006730 
006732 
006740 
006742 
006746 


ps0000 
000400 
001154 
001153 
007510 
001146 
001146 
013356 


HOS 


PAGE S58 
INTERRUPT SERVICE ROUTINES 
SOLPEEIIALILITELTITTATSATTALTATATAATEDETTTDATSTITTTAATLAA DALAT ALAS 


-SBTTL TEST EXIT ROUTINE 
TLE AA dd 


MACY:1 27(1006) O1-MAR-77 14:45 
38 CLOCK 


EXIT: JSR PC, KYBOF ;CHECK FOR KYBD FLAG 
172264 iT S14, JSWR :LOOP ON TEST SWITCH? 
— By — ae ee ee Test SE.ecrION 
STB 7tboP :KYBO ate - OOF ON TEST? 
Gl BD eae , RUN TERE ONCE? 
BEG ?NO, CONTI 
IMP TSEL YES CT TEST 
23: INC STSTNM : INCREMEN Test NUMBER 
33: MOV SISTNM, RO ;GET NEW TEST NUMBER 
RSL 0 :SET TABLE POINTER 
TS TAT (RO) ‘CHECK ADDRESS IN TABLE 
4§ :0K, GO TO TEST 
BEQ 25 :ZERO, SKIP TEST 
001146 MOV #20, STSTNM "END OF SEQ. - RESET TEST # TO 20 
BR 3$ TEST NEW 
4$: MOV eSTACK, SP ;RESET STOCK 


IMP aTAT(RO) :G0 TO TEST 


me eect atta Atta eee 
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000400 


007140 


000400 


001152 
006752 


172134 
001152 


172052 


-—- re re ee eee - ats ee 
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TEST EXIT ROUTINE 


5 SESE dR AER ARE AEE AE EE EEE A SEE ERE EE 
.SBTTL ROUTINES TO SELECT DESIRED TEST 


SOOOFTTPSATTATATPIITTETATT STATA TTTTIT ETT A ITED TLTAS ELEAF ETAT AT TALS ASAT 
ROUTINE TO SELECT TEST FROM SW REG, BITS 0-5 
lth aati iain titties 
SELECT: JSR PC, SROCI ;CLEAR CLOCK INTER 

C STRONE :CL 


LRB EAR PROGRAM CONTROL FLAGS 
CLRB §_ TRONE 
CLRB —« TLOOP 
JSR PC, KYBOF ;CHECK IF KYBD FLAG 
1S: HALT “NO KYBO FLAG - HALT 
*WAIT FOR TOR TO SELECT TEST 
; PRESS CONTINUE WHEN READ 
BIT #SW8, ISWR *CHECK SW 
BEQ 2$ :WANT TO RUN TEST ONCE & HALT 
MOVB #1, STRONE :YES, SET FL 
MOV ask, RO *NO, CHECK SW REG 
BIC ##C7?.RO Mask BITS 0-5 
MOV RO, STSTNM : TEST 
ASL RO’ :SET T ER 
TST TAT(RO) ae IF TEST IS IN TABLE 
E SELECT T THERE, GET NEW SELECTION 
MOV K,SP 1 
IMP SFA (RO) Re 0 SELECTED TEST 


SCLSOLLPPTTTATTSATTALATIPESTTTTTTSETTEALTATPATEPELLI EAP ELELPEDEL ELE ES EE 
; ROUTINE Mi CHECK FOR KYBD OR SW REG CONTROL 
sCALL: CHECK 


SSSOSSLLALATTTTAATETATTPTAPTEDAFOLLTTTALAETTTEEELEAEPDEPPELEEPEELEPEL ERS GE 


SCHECK: is Ra’et ‘ 5 CHEEK Ra oh Keo FL FLAG 


CLR RO AL EAR 

BIT #SW8, SWR check Si 

Bee ee etAg IP 
1S: CMPB  STRONE, RO | ; CHANGE IN SHITCH? 

BEQ NO, RE (CHANGE TO 402 TO DISABLE SW 9) 
- IMP LECT :YES, oe tct TEST (HALT) 


MOV (SP)+,RO ::POP STACK INTO RO 
RTI : RETURN 


MAINDEC-11-DZL 
OZLAEB.P11 


RESP 


007172 


Seas 


RE-B 
28-FEB-77 


MACY11 27(1006) 
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000176 


JOS 
01-MAR-77 


14:45 PAGE 60 
ROUTINES TO SELECT DESIRED TEST 
SOVLAPTIIITATATATATTATTATTATETAATTTAT TPIT TATTEST TELAT TST TTTTS TASS ASST 


;ROUTINE TO WAIT FOR OPERATOR ACTION 
TAAL EL 


SHOLD: TSTB S$TPFLG — 
ee. is iprench Te 


HALT HALT IF 
28 ;RE TINUE SWITCH 
1$: YPE WTMSG Le mee 
35: TSTB 3s TKS 
BPL 3$ NO Oe untT FOR FLAG 
2$: TI ?RE TURN 


SOSSTTSTTTATTAAPALTTATTAATTTETTTAS SAAT ATAAD LATEST TTPTTET TASTES EAA SS 
US LG ROME Enea vce reo 


+ sada inle athanaheaicinetaneaseniniamiadendemusitninntaahnneniand 


KYBOF: TSTB  $TPFLG s TERMINAL THERE? 
BMI 1$ 
TSTB aTks Thee SET? 
2s: iat iN, = ert" READ CHAR 
CMP SWR, #SWREG “USING HARDWARE SW REG? 
aN Wi ; F YE 
oo SUORCH TECNOTS 
S$: Bye (SP)+ iPr orf Stack 
cLR 20 s CLEAR NEW SH SETTING 
¢ Beusci TOBE necce 
MOV SWREG, - (SP) *:PUSH SWREG ON STACK 
TYPOC TYPE IT 
TYPE. ,DSMSG2 :T OF MESG 
9$ ROCHR +RE 
CMP (SP), #25 *CHAR = CONTROL-U ? 
a NTLU Fate y 
vos: fie Say noe meget aU 
: | : = CR’ 
eh 7. Bran f NOT 
E CRLF ?ECHO CR-LF 
TST 40S CH INPUT FLAG 
5 AVE Si SETTINGS ALONE IF NO INPUT 
MOV $, SWREG T NEW Si RE 
BR RETURN TO TEST 
7$: CMP (SP), #LF “CHAR = = LE? 
Bench F NOT 
YPE CRLF R-LF 
TST 30$ :CHECK INPUT FLAG 


———- — oe re te ee ee eee me ome oe oe 


eS St tee 
OZLAEB.P11  28-FEB-77 
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001146 


01-MAR-77 


ROUT 


4§: 


20S: 
308: 


Rov 
BR 


KOS 


14:45 PAGE & 
INES TO gevect DESIRED TEST 


TSE. eee sREAVE SH_SETTINGS ALONE IF NO INPUT 
TSEL 


TSE oy eo TEST SELECT (VIA KEYBOARD) 
’ g 
ab Re ae inaee Pat 


#407, (SP) 

gus ; i ote 1 OTe TCH SETTINGS FOR NEW ONE 
20$ 

ge 208 cl eres 

8177, (SP) : CHAR 

fee ives ree T SELECTION (VIA KEYBOARD) 
KvaoeT GEN 5 ONL Stes 

{ } ie dope = NUL, IE., CTL-SPACE? 
#64, STSTNM iTS THIS TEST 64 ? 

13 SET Poke 

al RES RETURN 

SSTACK, SP sFIX STACK 

ACCEPT :TO WITHIN TEST 64 

0 SW SETTING INPUT 

0 INPUT FLAG 


ea ee MACY11 27(1006) O1-MAR-77 14:45 PAGE 62 
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LALLA dd 
;ROUTINE TO SET NUMBER OF COLUMNS FROM CONSOLE DEVICE KYBD 
TALL id 


pore ORC SRY OST Th, ETRE SL Nh 
yee : MOV (SP)+,RS ise p SFR INTO RS 

Oo7ise 020527 000204 chp R , #132. TEST IZE OF NUMBER 

007464 Getse? ooo002 CMP , #2 : TEST tf 5e ican 

Bare ame 001160 1S: Tyee vues pean TE OC TYPE QUESTION MARK 

007502 000763 BR Be ;GET INPUT AGAIN 

007504 010537 001150 3S: MOV , WIDTH OK, SAVE ® COLUMNS 


SOLITTTTTTTTATATTATLATTAATLATTATATATATALAT TELA ATTA A TEST ATTA SSS 
; ROUTINE TO Fee its vERI 8 FROM CONSOLE KEYBOARD 


AND DETERM T ACTION . 
; TEST MUST BE OCTAL, FOLLOWED BY ONE OF THE 
FOLLOWING CONTROL CHARACTERS: 
PERIOD . 2 RUN TEST ONCE AND SELECT NEXT TEST 
; L = LOOP ON SELECTED TEST 
: S © START TEST SEQUENCE WITH SELECTED TEST 


SOSSOLIAPLTITATAETTATEESLTPSATAALTTPLAEALAATETAEETATEATELEAA ED ESA A ESE SS 


Bosets 15037 BBties ras tthe TrOne CLEAR BROGKAA CONTROL FLAGS 
Bovesa ipeda p14 Cepe | SUEDE STYPE SELECT TEST MESG 
007534 ye ss: OLIN J 0 tp "Eek aor Hele 
boao03 np n1C17?, RO “ CK 2 ha = CNTL-C 
Giréee sate co0060 ee RO a0 ere b Co. OCTAL_NUNBER © 
ere nee ag pe 'NOT OCTAL - INPUT ERRO 
tJ 
07570 O52700 177770 Bic afc7,Ro Me STORE DiGi?) 
007576 006300 ASL SCR 
12501 nove «= CRSD4.R ;GET SECOND DIGIT 
paves bi2701 177600 Bic 179, iGfech IF BN OCTAL DIGIT 


Ee 
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;NOT OCTAL - INPUT ERROR 
000067 cre i #67 ™ 


14 
se jake I ;NOT OCTAL - INPUT ERROR 
1 177770 BIC #tC7, RI 0K - MASK DIGIT 
bares BPBA9? one HOV Bd: Hse ett Ae espe 
ee fe Gy Grn tah SMe fcc 
Bes hie ye th oye 
007660 pO1004 iGbtse oe i The, CHECK 
O07bbe 112737 177777 001153 MOVE = i-1, TRONE yee, Bee FLAG 
Bove ve Be 701 1S: Bt #B1TS,R1 MU ASK BIT S (ALLOW UPPER OR LOWER CASE) 
76 Oe 1 Boot : ore EL, R om = LF 
04 Tera 177777 001154 nove #-1, TLOOP Ne BRT 
007714 022701 000123 2s CHP #.5,R1 ;CHAR = S? 
007726 ta Tees és MP STATCROD Resch GO TO SELECTED TEST 
oS ee 


ee es —_—— =< + eee - ee eee - 
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55 HEE EE 90 98 a a a a a 
.SBTTL ERROR HANDLER ROUTINE 
; THIS ROUTINE WILL SAVE THE ERROR NUMBER AND THE ADR OF THE ERROR CALL 
a9 gir TCH OPTIONS. ARO iM ROUTINE ARE: 
1S = 


: 3 =1 INHIBIT ERROR TYPEOUTS 
: SW1O = 1 BELL ON ERROR 
> CALL 
: ERROR N sERROR = EMT & N = ERROR ITEM NUMBER 
007744 013777 OO114%6 171172 SERROR: MOV STSTNM, DOISPLAY;DISPLAY TEST NUMBER AND ERROR FLAG 
007752 032777 002000 171162 BIT #81710, aSWR ;BELL ON ERROR? 
007760 001 ae 1 *NO - SKIP 
1 001156 YPE Soci *RING BELL 
cares O11 1 : HOV etre *GET ADDRESS OF ERROR INSTRUCTION 
1 ll tate MOVB ITEMB ;STRIP AND SAVE THE ERROR ITEM CODE 
910006 032777 020000 171126 BIT #81713, aSWR s SKIP TYPE OUTS IF SET 
siege Bara? 10044 BNE REPORT a6 TO XPECHT ROUT INE 
010022 104401 001161 TYPE SCRLF 
biogas sopog, 2 ttt a ee CRIP Te CONTIWE we: 
sie [eet to Binet fac 
10636 3S: RTI ‘RETURN 


RRS - WORD fen ERR RROR INSTRUCTION EXECUTED 





mmm a ee 
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ALLL dd 
;ERROR REPORT ROUTINE 


ERROR MESSAGE WILL USE THE FOLLOWING FORM: 
“TEST XX, PC=XXXXXX, ERROR @XXX, MESSAGE >>>>>>>>>>>»> 


SOSLIITTATITTPTTATTATITTATTTTATTTTTATTALTTTASEETTTTATT TASTES TASS S SSS 


010044 105737 001173 REPORT: TSTB  S$TPFLG ; TERMINAL EXIT? 
0100S0 100435 BMI 2g NO, EX 

01 005¢ 010046 -(SP) 5 5PUSH ON oe! 

10054 104401 o1S044 TYPE TSTNO : FI T OF ERROR MESG 
010060 013746 OC1146 MOV STSTNM,-(SP) | ;:PUSH STSTNM ON K 
010064 104403 TYPOS : TYPE NUMBER 

oir post 015054 ‘Br - Wee LER NM ZEROS MESG 

1 010040 MOV SERREC, -(SP) ts Serer TACK 
Gisioy IGG? ogc iIVEE ROR BC 
010106 at s7ae 010042 MOV sFiene, -«sP) PUSH ERROR Rk 
O101i¢ 24g T i IVE NUMBER 

10114 BY 9 3 *3 DIGITS MAX. 

BtOLIe JONNOL 01507 poe” teres g TYEE LEPDING 2 

Btoiee bt 010042 MOV sf ithe, Ro GET NUMBER 

010126 006300 ASL RO SET T POINTER 

010130 016037 013554 010140 MOV EMAT-2(RO),1$ SET MESSAGE ADR 
010136 104401 TYPE ‘TYPE ERROR MESG 

010140 00000 1S: .WORD 0 

010142 012600 MOV (SP)+,RO ;:POP STACK INTO RO 

019144 900207 25: RTS pC : RETURN 
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-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


53 SEERSAKRLERSESRKAKAAKAARSRERSRSAALARELAASLARSLRLARSAARAARASSASALES 
:kSAVE RO-RS 

: #CALL: 

3% aie’ 

; #UPON TURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


: #TOP=--(+16) 


;# +2---(+18) 

3% +4---RS 

;# +6---RY 

3% +8---R3 

;#+10---Re 

3#+12---R1 

: #41 4---RO 
D10146 SSAVREG: 
010146 O1004% MOV RO, -(SP) ;;PUSH RO ON STACK 
010150 010146 MOV R1;-(SP) ::PUSH R1 ON STACK 
010152 010246 MOV Re; -(SP) ::PUSH Re ON STACK 
010154 019346 MOV R3,-(SP) PUSH R3 ON STACK 
010156 o10446 MOV RY’ -(SP) PUSH RY ON STACK 
010160 010546 MOV RS, -(SP) *:PUSH RS ON STACK 
010162 O1664% 900022 MOV ge{SP),-<(SP) $ SAVE PS OF MAIN FLOW 
010166 O16646 O000e2 MOV (SP)'-(5P) 3! OF MAIN FLOW 
010172 O16646 000022 MOV 22(5P)'-(5P) ::SAVE PS OF CALL 
010176 O1664%6 c000e2 MOV 22(5P)'-(SP)  3:SAVE PC OF CALL 
010202 00002 RTI 

: #RESTORE RO-RS 

+ RESREG 
010204 S$RESREG: 
010204 O12666 o00022 MOV (SP)+,22(SP)  ;;RESTORE PC OF CALL 
010210 O12666 O000e2 MOV (SP)+720(5P) RESTORE PS OF CALL 
010214 Oleb6& o000e2 MOV (SP)+;20(5P) 3:RESTORE PC OF MAIN FLOW 
010220 Ol2666 O0002e2 MOV (SP)+’22(5P) ;:RESTORE PS OF MAIN FLOW 
010224 012605 MOV (SP)4'RS5 ::POP STACK INTO RS 
010226 012604 MOV (5P)+/R4 ::POP STACK INTO R4 
010230 012603 MOV (5P)+'R3 ::POP STACK INTO R3 
010232 012602 MOV (5P)+'R2 ::POP STACK INTO Re 
010234 012601 MOV (SP)+'RI ::POP STACK INTO RI - 
010236 012600 MOV (5P)+'RO ::POP STACK INTO RO 
5id240 dodo RTI 


ee em et nme ee me ee me 


ee ame eee - ——_—_ a ew 
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3p SRSA AE EE EEE gE dd A a a 
.SBTTL TYPE ROUTINE 
;ROUTINE TO TYPE ASCIZ MESSAGES, MESSAGE MUST TERMINATE WITH A O BYTE 


Mie a Re SRE Oh YH te TREE PB Use 


SFILLS CONTAINS T LLER CHARACTERS RE 

!NOTES: SFILLC CONTAINS te CURRACTER ‘i nail AFTER 

CALL: 

: TYPE , MESADR ;MESADR IS ADDRESS OF FIRST CHAR IN ASCIZ STRING 
910242 105737 001173 STYPE: TSTB  $TPFLG 31S THERE A CONSOLE TERMINAL? 
010246 100407 BMI : H IF NO CONSOLE TERMINAL 
0102s 610046 ss 18: HOV RO, ~ (SP) : SAVE “ ees 
pi BSeE ers _ 2s: MOVB thos, RQ. : AOR ARACTER ¢, BE TYPED ONTO STACK 
bioeee pbayee aoe 8 LL de! 2S Tuer 
pi OSes p03. 68 nev (SP)+,RO : 
010266 O62716 o00002 3S: ADD #2, (SP) ADJUST RETURN PC 
pioema pSeeTe oogeoD us RMPBACRLF, (SP) ‘BRANCH IF NOT <CRLF> 
ot Sa0 agent '. BNE feet : 
C10302 005726 TST (SP)4 sPOP <CR><LF> EQUIV 
010304 104401 001161 TYPE,  $CRLF TYPE CR-LF 
010310 oo0762 BR GET NEXT CHAR 
010312 004737 010344 S$: JSR PC. $TYPEC :GO TYPE CHAR 
010316 123726 001172 6S: CMPB Os SFELLC,(SP)+ 315 IT TIME FOR FILLER CHARS? 
010322 001355 BNE § TF NO GO GET NEXT CHAR 
0303e4 013746 001170 MOV $NULL,-(SP) :GET ® FILLER CHARS NEEDED 

!AND THE NULL CHAR 

010336 105366 000001 7$: DECB 4=s«AA SP) :DOES A NULL NEED TO BE TYPED? 
910334 002770 BLT :BR IF NO - GO POP THE NULL OFF OF STACK 
010336 004737 010344 ISR PC, STYPEC :GO TYPE NULL 
010342 900772 BR 7§ : LOOP 
010344 105 170534 STYPEC: TSTB aS$TPS sWAIT UNTIL CONSOLE PRINTER IS READY 
610350 100375 L $TYPEC 
910352 116677 oo0002 170526 MOVE 2(SP).a$TPB sLOAD CHAR TO BE TYPED INTO DATA RES. 
610365 609207 RTS PC : RETURN 


me ee ee 
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.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


Bas OSITIVE on tative A SIRS SIGN WILL BE TYPED 
= Re HE iu apigit OF THE NuMBER LPeo NG ZEROS WILL ALWAYS BE 
PL ED WITH 
i NUM, -(SP) :iPUT THE BI R ON THE STACK 
: OhDs 10 fue RORY INE ” 
010362 STYPDS: 
010362 010046 RO, -(SP) ;;PUSH RO ON STACK 
010364 O10146 MOV R1;-(SP) ::PUSH R1 ON STACK 
010366 010246 MOV Re, -(SP) *:PUSH Re ON STACK 
010370 010346 MOV R3,-(SP) ::PUSH R3 ON ST 
010372 o10S546 MOV RS. -(SP) ;;PUSH RS ON STACK 
010374 012746 o20200 MOV 820200, -( ::SET BLANK SWITCH AND SIGN 
010400 O1660S 000020 v 20(SP),RS ::GET THE INPUT NUMBER 
010404 100004 BPL ::BR IF INPUT IS POS. 
010406 o0S40s NEG ::MAKE THE BINARY NUMBER POS 
010410 112766 oo00SS o00001 MOVE &#'-,1(SP) |  3;MAKE THE ASCI huniBe NE 
010416 1$: CLR RO $+ ZERG THE C SI 
bi o4eM 150 pa0648 nove “ae ys a7 fe RT CHARACTER TO A BLANK 
010430 2$: CLR : Hee on Fue Rep NUNBE 
010432 O1600i o10se6 MOV SOTBL (RO) ,R1 ONST 
010436 160105 3S: SUB R1,RS He THIS BCD DIGIT 
010440 d0e402 BLT 4§ IF DONE 
010442 005202 INC R2 tS INCREASE THE BCD DIGIT BY 1 
010444 000774 BR 3$ 
Ci9446 060105 4§: ADD R1,RS ;ADD BACK THE CONSTANT 
010450 005702 TST Re + CHECK IF BCD DIGIT=0 
010452 001002 BNE 5 L THROUGH 
010454 105716 TSTB —s« (SP) OEE DOING LEADING 0’S? 
010456 100407 BMI ? >:BR IF YES 
D10460 106316 Ss: ASLB = (SP) ; ;MSD? 
010462 103003 BCC 6 :BR IF NO 
010464 116663 000001 177777 MOVB  1(SP),-1(R3) i YES--SET THE SIGN 
010472 OS2702 OO0060 6S: BIS #°0,Re 33MAKE THE BCD OIGIT ASCII 
010476 O2 o00040 7§: BIS ’R j MAKE In A SPACE IF NOT ALREADY A DIGIT 
010502 110223 MOVB Re, {R3)+ StpuT T HIS CHARACTER IN THE OUTPUT SUFFER 
010504 005720 TST (RO)+ :: JUST INCREMENTING 
010506 000010 CMP RO, #10 ;;CHECK THE TABLE INDEX 
010512 002746 BLT 2$ THE NEXT DIGIT 
010514 003002 BGT 33G0 TO EXIT 
010516 o10S02 Ov RS,Re L 
010520 000764 BR 6$ $60 CHANGE TO ASCII 
G10S22 105726 Qs: TSTB 2s (SP) + sR THE LSO THE FIRST NON-ZERO? 
010524 100003 BPL 9$ F 
O10S26 116663 177777 177776 MOVB A (SP), ~2(R3) :YES--SET THE SIGN FOR TYPING 
010534 105013 9$: CLRB ss (R33) YES THE TERMINATOR 
610536 012605 MOV (SP)+,RS ::POP STACK INTO RS 
610540 012603 MOV (SP)+/R3 ::POP STACK INTO R3 
o10542 Olee0e MOY (SP)+-Re ::POP STACK INTO Re 


— ——— —-— 
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NOV ‘Ee ir HPP STACK Io BA B Ro 


010576 TYPE 
ocoode 90ccc4 iy SP). wee  AodUst He NETACK 
RTI ;;RETURN TO USER 
$OTBL: 10000. 


$OBLK: .BLKW 4 
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.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


TS a gr le er gh at re 
:ATHIS ROUTINE IS USED a 16-BIT BINARY NUMBER TO A 6-DIGIT 


TO 
HESTVPOs---EN RN HERE daddies SUPPRESS ZEROS AND NUMBER OF DIGITS TO TyPE 


" MOV NUM, -( SP) on? Teen 

TYPOS 

-BYTE N + CM “10 8 FOR NUMBER OF DIGITS TO TYPE 
-BYTE WM ;;M=1 OR a 


;; L=TYPE LEADING ZEROS 
;;Q=SUPPRESS LEADING ZEROS 


; #STYPON-~--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;#81YPOS OR STYPOC 


:% MOV NUM, -<(SP) ;;NUMBER TO BE TYPED 

i TYPON *:CALL FOR TYPEOUT 

i #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

; * : 

1 MOV NUM, -(SP) ;NUMBER TO BE TYPED 

ie TYPOC CALL FOR TYPEOUT 
010606 017646 900000 STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
010612 116637 OO00001 011031 1(SP),$OFILL 3 ;LOAD_ZERO FILL SWITCH 
010620 112537 011033 MCVB (SP)+'SOMODE+1 ::NUMBER OF DIG ire 0 TYPE 
010624 062716 O00002 2, (SP) :  AOJUST RETURN ADDRESS 
010630 O00406 BR STYPON 
610522 112737 OO0001 011031 STYPOC: MOVB #1,S$OFIL ::SET THE ZERO FILL SWITCH 
010640 1128737 900006 011033 MOVE #6, SOMODE+1 ;;S€T FOR SIXx(6) DIGITS 
010646 112737 OO000S G1i032 STYPON: MOVB  #5,SOCNT SET THE ITERATION COUNT 
010654 010346 MOV R3,-(SP) ::SAVE R 
010656 010446 MOV RY! (SP) 33 SAVE RS 
010660 O10S46 MOV RS’ -(SP) SAVE RS 
010662 113704 011033 MOVB § S$OMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
010666 005404 NEG RY 
010670 062704 o00006 ADD #6,R4 : SUBTRACT JT IT FOR MAX. ALLOWED 
010674 110437 011032 MOVB 4’ SOMODE OR USE 
010700 113704 011031 MOVE SOF ILL.RY ::GET THE ZERO FILL SWITCH 
010704 016605 o000i2 MOV 12(5P).RS ;3PICKUP THE INPUT NUMBER 
019710 O0S003 CLR R3 CLEAR THE OUTPUT WORD 
010712 006105 iS: ROL RS :FROTATE MSB INTO “C™ 
910714 00404 BR 33 DO MSB 
010716 006105 2s: ROL RS : FORM THIS DIGIT 
010720 006105 ROL RS 
010722 006105 ROL 
010724 010503 MOV RS5,R3 
010726 906193 2S: ROL R3 ::GET LSB OF THIS DIGIT 
910730 1 011032 DEC SOMODE ;;TYPE THIS DIGIT? 
l 100016 BPL ? ::BR IF NO 
010736 O42 177770 BIC #177770,R3 s3GET RID OF JUNK 
sate eter aut RY Re ae Pars 0? 
010746 001403 BEG ss ::BR IF YES 


tt ee tet i Oe ——- - 
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DZLAEB.P11 § 28-FEB-77 15:08 BINARY TO OCTAL (ASCII) AND TYPE 
919750 4g: NC RY ::DON’T SUPPRESS ANYMORE 0°S 
i p99060 1S #°0,R3 :;MAKE THIS DIGIT ASCII 
010756 0 S$: 15 -*R3 ASCII IF NOT ALREADY 
Biovee towaa, Sr idee Rove = Fa, +E ee THIS OGGIT 
ia: 10333 sete 73: DEC SOCNT + SUNT Yi 
it 5 ar Os tiBR IF DONE. 
pte Shean INC RY :: INSURE LAST DIGIT ISN’T A BLANK 
011004 o00744 BR 2g ::G0 DO THE LAST DIGIT 
011006 012605 6S: - MOV (SP)+,RS ::RESTORE RS 
911010 O1eb04 MOV (SP)+'RY RESTORE 
11012 012603 MOV (SP)+'R3 : REST 
011014 O16666 o00002 op0004 MOV 2(SP)4(SP) t:SET THE BF ack FOR RETURNING 
911922 Oiebi6 MOV (SP)+; (SP) 
ae 0000 RTI ft TURN 
11526 000 83 .BYTE 0 :: STORAGE FOR ASCII DIGIT 
011027 000 “BYT :: TERMINATOR FOR TYPE ROUTINE 
Bit 0 OCNT: .BYT 339 TAL th IT COUNTE 
11031 0 OFILL: :BY7 :2ERO FILL SWITC 
011032 ocooo0 SOMODE: :WORD 0 ::NUMBER OF DIGITS TO TYPE 
011024 904737 011316 SLOAD: JSR PC, RSTADR : RESTORE RODRESSING G10 FIRST PRINTER 
611040 900137 900000 LOPTR: MP 0 s HITCH TO EITHER PARAL 
: ERIAL SINGLE CHARACTER LOADER. 
: S SuITCH Is SET Up By PROGRAM 
: TS BATE PER THE WONFENTS™ OF SERSW WORD. 


ee ee eee ee ee — a oe - -<-- 
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3 SESE AR dE dE EEE EEE dE gS AA A ea EE 
.SBTTL ROUTINES TO LOAD CHARACTERS TO LAISO 


SSOSIALSATAATIELTTSTTTITTTTTATSTAATTATTTS PDT TATTATTETAL PETS S ASAE AAA 


Cat He a onli 


HAR IN RO 


iI PRINTER DOES NOT GO READY Bi TUN 9 TO 
; (DEPENDING ON CPU AND MEMORY TYPE) THE BrRGNGST IC W WILL 
INDICATE AN ERROR - ERROR #24 - NOT READY. 


SOFSPOSILASTATATELEATATTATTTITTEATTDTTLATATAEEAITTATSTSAAEEEET TSS A STEEL 


ll O44 PLOAD: CHECK CK 
Bitove A273? oooo4e 11140 GHECK yuo, 6S ser bel RY CB0e Count 
Bie Tptoge 170034 PP ps ck F FRROR CONDX 
tt I OR 24 :PRIN ER ERROR BEFORE LOAD 
nLite BESS? BLL 8 Eee, ogy coun 
: u 
Bt Bes Bit tae }) a | nn he Count 
bt 100 ee 011140 Bre zs RY 
Bitips spit Be OG et OH ot 
011106 104025 ERROR 25 ERROR, PRINTER NOT READY 
011110 oo0411 BR 4§ x 
Olllle 105777 167776 38: TSTB = ALPS ICHECK FOR PRINTER READY 
011116 100365 BPL 2$ :WAIT FOR READY 
011120 110077 167772 MOVE RO, aLPB it CHAR 
011124 005777 167764 TST aLPS EST FOR ERROR CONDX AGAIN 
011130 100001 BPL 4§ :BRANCH IF 
011132 104026 ERROR 26 :PRINTER ERROR AFTER LOAD 
011134 o004d2 4$: BR NXTADR ?DOES ANOTHER PRINTER REQUIRE LOADING ALSO? 
011136 000000 S$: .WORD 0 ;DELAY COUNTER 
011140 oo0040 6S: “WORD 32. :DELAY LOOP COUNTER 
011142 005337 001132 NXTADR: DEC LPCTR ;DECREMENT LINE PRINTER COUNTER 
BLL14e 003416 BLE I ‘BR IF COUNT IS ZERO OR LESS (TO EXIT? 
011150 062737 000010 001110 ADD ai, LPKS !ADDRESS NEXT CONTIGUOUS LINE PRINTER 
011156 062737 000019 OOlile ADD 8 
BGS Geeree Sam Geille = RE 
pi tars 000177 177636 IMP H10,1P8, Oe rh Sane ConbeR TO NEXT PRINTER 
011204 opo00e 10$: RTI ‘RETURN, SINGLE CHARACTER LOAD IS 


:COMPLETE (TO ALL PRINTERS). 
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SOOSIIIPIATTTTIAILEAPTATTTTATAATATASS LALIT ATAT PD TESST SATA A ATID SSA SS 


ROU ie Sa ell TO THE LAI80 PRINTER 
; CALL: 


sPUT CHAR IN RO 
ad Far Al < RO BOP AES. 

011206 105777 167676 SLOAD: TSTB  @LPKS ; CHECK | FOR PRINT KBD INPUT 
piisis Tekh 167672 011314 fon Seka 10$ CHARACTER 
Olle22 puoe35 eats 011314 BIC #177600, 10S Nate'Be Sante :, :, 
011230 D237 27 011314 000023 CMP 108, 423 
Bt 1538 ries 3S: BNE ck 0, “Sp pe ae OPERATOR INTERVENTION 
011242 105777 167642 TSTB = SLPKS :CKECK FOR PRIN ER KBD INPUT 
011246 100374 BPL 3$ *NONE, WAIT F PRane ED 
011250 017737 167636 011314 MOV JLPKB, 10$ : PRI KEYBOARD 
011256 042737 177600 011314 BIC #177600, 10$ :STRIP EXCESS BITS 
011264 023727 011314 000021 CMP 10$, #21 is CHARACTER XON? 
011272 001362 3$ WAIT SOME HORE. 
011274 O04 4§ yee GO DIRECTLY TO LOAD A CHARACTER 
011276 104420 2s: CHECK : CHECK FOR OPERATOR INTERVENTION 
011300 105777 167610 TSTB = ALPS TS PRIN 
011304 100340 mail i. EPL SLOBD iO START CHECKS OVER 
641308 ringes ; BR ANtabR a5 tonb SAME CHARACTER TO NEXT PRINTER 

‘USING SAME LOADE 
011314 900000 10S: .WORD 0 ;LA180 KEYBOARD CHARACTER STORAGE. 
011316 013737 001130 001110 RSTADR: MOV ACTFST,LPKS ;SET PRINTER KBD STATUS REG ADDRESS 
O113e4 2 po1119 O01 11g MOV LPKS.LPKB 
11 7 00111 ADD 2 Peake ;SET PRINTER KBD BUFFER ADDRESS 
011340 013737 OO111l2 001114 MOV LPKB,LPS 
011346 737 000002 001114 ADD #2, LPS ;SET PRINTER STATUS REG ADDRESS 
11354 013737 001114 601116 MOV LPS LPB 
011362 737 o00002 001116 ADD #2, (PB iSET PRINTER BUFFER ADDRESS 
911370 013737 OOll22 00113e MOV NUMLP, LPCTR :PUT # OF LP’S INTO A COUNTER. 
011376 000207 RTS PC +E TURN 


a ret ee ee ee ee ee i 
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DZLAEB.P11 28-FEB-77 15:08 ROUTINES TO LOAD CHARACTERS TO LALGO 


SOSSTTATATTTATTAITTTATTATATATTAAT ATTA TT LTT PTTATTATTATT ESTAS TTT ASA SSS 


;ROUTINE TO Le ROE TF CHARACTERS (NOT ASCIZ/ASCII STRINGS) 
LOAD CHAR 


At meer a ih f CPOSIT IVE) 


-daemeabanseniihdaenshpevannineenteaniiapeheeadannneereenentacesats 


tattied 104415 SMLOAD: LOAD ;LOAD CHAR 
1140e 005301 - DEC Rl ;DEC COUNT 
011404 9003375 T SMLOAD ;FINISH LOAD 
011406 000002 TI ; RETURN 


SOOSTTOITTAITTTTTITATATTTTATTTATAATTTTTALALAAT ATTA TATA ATTA TSE 
S LEADING ZEROS 


i “a tas Be nePQU' INE MILL PRINT A SINGLE. ZERO 


SSITITATATETTAATTTTTATTETAPTAETTTAATTAATTTEETAATLS TAAL PD SADA TELL EL EET 


pai OL SCNLD: ov «RO, (SP) RO ON STACK 

Btiat Bt 1 MOV RY ac ep) + PueH Ri oN eTACK 

011414 O10246 MOY R2,-(SP) ::PUSH Re ON STACK 

pete yey o00012 Gh Re SP) Rl T AOR 

Bass eesti 1S: MOVB tee RD eer CHAR 

114 1410 BEQ :RET WHEN 

114 708 : LEADING Ss? 

114 1 BNE *YES, L 

011434 o00060 CMP RO, #60 NO, CHECK THIS CHAR 

011440 001771 BEQ 1$ skip IF ZERO 

011442 INC R2 : T FLAG IF NON-ZERO 

011444 10441 2s: LOAD HAR 

011446 BR 1$ : CONTINUE 

011450 005702 3S: st Re “ALL CHARS ZERO? 

Bt tie fe 000060 MOV 20, RO NO, ‘SAD ZERO 

011460 104415 LOAD 

BtiMeS 1 se Oe POP STACK INTO R2 
d+, se 

Bt aes pt eeee MOV (2b)3° Ri iEPop Stack NTO RI 

011466 012600 MOY (SP)+'RO POP STACK INTO RO 

011470 O16666 o00002 op0004 MOV 2(SP);4(SP) tADJUST § STACK 

O11476 Ole616 MOV (SP)+) (SP) 

1} oocade2 RTI : RETURN 


ae we ee ee es = - 


ee rr eee ee re = ae ee nee eee ee ee ee 
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SCSATITITTTIAATTATATAATTATSAATTATTTIATTATSTTTTTT TESTS TITAS ATT STS AA STATS 
sROUTINE TO PR 12 STRINGS ON LAL80 PRINTER 

STRING MUST Be TERRNATED Y NULL a 

oe MESADR 


SSOITATAITATAATTTTTTTAATTTTTTATTTTATTATALLATTATTLA STE TTTSSTPSSTAT SSAA SS 


011502 SPRINT: 
011502 010046 MOV RO, -(SP) ;3PUSH RO ON STACK 

Bt ebe Boat oo0004 V Rb tSES Ri . H HODRESS Br asclz STRING 
piters este 1S: VB  (R1)+,R0 T CHAR 

011514 001407 BEQ 2s :BRANCH IF TERMINATOR (NULL) 
11 000200 CHP RO, #CRLF “CHECK IF _CRLF CODE 

11 : IF NOT 

11 1 oo0012 MOV SLF,RO YES, DO LF ONLY 

011530 104415 3S: LOAD LOAD CHAR 

HE 000767 ~ BR 18 GET NEXT CHAR 

11534 012601 (SP)+,R1 ;;POP STACK INTO R 

011536 012600 MOV (§P}+'RO ::POP STACK INTO RO 

011540 oooo02 2 #2, (SP) sf RET 


rengecsti 004 7 macs! 27( 1006) and 


oo 


OR INE Roa 


bt bh Ph = bb hb bh bb bh ep fe ps he pe 
_ 
o 


000 O00 OOO OOOO OO0O0000000 
Ds ee ee ee 
Rok ESe 


oO 
— 
f 


o000eS 


-SBTTL PRINT TEST HEADER 


1-MAR-77 14:45 PAGE 
TINES TO LOAD CHARACT 


MO6 


TO LA180 
SCOIATTATATTATTATTAAATTTATAATAAATAATTT ATT ATT ATTA ATT ATTA TS ATTA SASS 


; THE Nur e COLUMNS WILL ALSO BE PRINTED FOR TEST 25 ONLY 
; CALL: RoR 


SSOITITATTTITATTTLTTATTIAATATTAATTTATTATTAATTA ATTA TASS TATA TASTES TASS 


om oe 
MOV 864S, -(SP) 
RTI 

he 
MOV #177,RO 
LOAD 
CHP a 
MOV STNM, SVTST 
Bou STS TNM. -(SP) 
JSR Bro Ttehs 
SRN. SLE 
eRE gfe Ti, a2s 
ty a TOTH SP) 
"ee Be geben 
CNLOAD 
PRINT  ,COLMN 

38: PRINT ‘SLF 

4$: RTI 

SVTST: .WORD 0 


;;PUT NEW PS ON STACK 
3 PUT NEW PC ON STAC 
33 PC PS 


a3 
g 


ae 
re 
" z 


ara 


3 
P *] 


rarer pean 
aie 
ee 
mh wn 
4% a°68 
BR 
z 


3 
x 
wv 


;SAVE TEST NUMBER 


K 


am a ee ee ee ee 8 ee eee +e me - owe -— 2 oe + - -o- ee - - 


NO6 
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-SBTTL TTY INPUT ROUTINE 
: gC ERE eeen eam one neer ens ommetmet ayant pie 


* ENABL 
.DSABL LSB 


5 SESE AR EEE 98 46989 9 98 9 9 0 A SES EE EEE EE EE 
THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


3 #C. 
+ ROCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
iH RETURN HERE >: CHARACTER IS ON THE STACK 
i *:WITH PARITY SIT STRIPPED OFF 
3 

Oll662 011646 SROCHR: MOV (SP), -(SP) ; PUSH THE PC 

011664 O16666 ooo002 MOV 4(SP},2(SP) ss PS 

G12 105777 167202 1$ TSTB 3s AS TKS >:WAIT FOR 

11676 100375 BPL 1§ 738 TER 

011700 117766 167176 OOO004 MOVB  aSTKB,4(SP) *:READ THE TTY 

11706 04 000004 BIC 8¢C<1?7> 4(SP) +:GET RID OF JUNK IF ANY 

11714 000023 CMP 4(SP), #23 731S IT CONTROL - ? 

11722 001013 BNE 3$ + IF NO 

11724 108777 167150 25 ISTB a$TKS -: WAIT FOR A CHARACT ER 

pt 1530 teat 167144 Seika (SP) :3 R 

011736 042716 177600 BIC ##C177, (SP) ::MAKE IT 7-BIT ASCII 

alice fase oe! yeriek HHP Abr RStan TF 

11 I >: YES RESURE 

011758 O26627 000004 000140 3S: CMP 4(SP), #140 ::1S {fT UPPER CASE? 

11 5Ee o00004 000175 odes). 8175 OR RACN A SPESTAL CHAR? 

pt teo6 Bese? Ber. ous HH P ves 

011772 042766 OO0040 oD0004 BIC #40, 4(SP) ::MAKE IT UPPER CASE 

012000 oo0002 TI 


4$: R F 
2 PPPPTETETeTr ttt tt titi itt titi titi tittit tt ittt ttt! 
j ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


;; INPUT A lg BS FROM THE TTY 


:# © ROLIN 
;# RETURN HERE 


$3 SS OF FIRST CHARACTER WILL BE ON THE STACK 
# ;; TERMINATOR WILL BE A BYTE OF ALL O'S é 
12002 010346 SRDLIN: MOV R3,-(SP) ; SAVE 
112004 O0S046 CLR -(§P) + eR THe RUBOUT KEY 
1120068 012703 012236 1$: MOV #STTYIN, R3 ;;GET ADDRESS 
tieoie 022703 Olee4e 2s: CMP USTTYINGS RS :3 FER FULL? 
[12016 101456 BLOS 4 3;BR i 
G12e020 104406 : ROCHR ::GO READ ONE CHARACTER FROM THE TTY 
g ieee 112613 MOV (SP)+, (R32) i3GET CHARACTER 
5064 ie 13 000177 10S: CMP’ #177, {R3) ::1S IT @ RUBOUT 
0.20: 1022 BNE 54 :;BR IF NO 
,2032 * TST ($P ::1S THIS THE FIRST RUBOUT? : 
32034 1 BNE 6 33 F 
13036 112737 000134 012234 MOVB  =«-_-&\,, 98 :; TYPE A BACK SLASH 


a a ee ee eee 


3 
ae 
L] 
-—~— 
bop eo 


aa aseKnues 


~_ 

aS 
— 
Worm 


-_ 
~ 


bo Bb be be be be pe ho Bs bo bee fe Be fe Pw pe 


rurururoruororuororu 
=) 
= 


BOR 
bee 
N= = Ww) 


b= fs be 


SNFOSANFHSRNS PNG coR 


— 


fb 4 bo pe be bo fh fe ht he Pw pe Bo feo hw po pee Pe 


rurururururururoruru 


: 
e 


; 


RARE 
ocvo 
a 


SANSA 
Poomcne es 


: 


OOOO OOO OOO OOOO OOO OOOOO OO OOOOH O0O00000000000002000 


0+ bs bb bP Bb = bh bb bb b= = be 0 fb b= 


n 
n 
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1S TTY INPUT ROUTINE 
TYPE 95 
° MOV b-1, (SP) ;;SET THE RUBOUT KEY 
6S: DEC R3 > :BACKUP BY ONE 
012236 8 , SSTTYIN HE x oer 
912234 Ove (R3), 9S :: SETUP ¥ TYPEOUT THE DELETED CHAR. 
BR 2g Hh, ANOTHER CHAR. 
S$: aes (SP) 3 A SET? 
134 012234 MOVB =«-&’\,, 98 TYPE A BACK SLASH 
012234 TYPE 35 
CLR SP) ;;CLEAR THE RUBOUT KEY 
000025 7$: CMPB 0s«#2S,, (R3) 2315 CHARACTER A CTRL U? 
012242 free som. Hid ¢ oer ° 
oon02e2 8$ CMPB (R3) HB A “tR”? 
; BNE e ; He rf 
1161 es Bi. > : 
513296 TYPE  >S$TTYIN >;TYPE THE INPUT STRING 
Ree Sus 1 Oe aie» ANOTHER CHACTER 
001160 4§: YPE Ss $6 ” 
BR Is, CLEAR BUFFER AND LOOP 
012234 3 HOVE (83), 98 ::ECHO THE TER 
000015 CMPB sé 1S, (R3)+ ;;CHECK FOR RETURN 
BNE 2 LOOP IF NOT RETURN 
ratte Ae UE are © 
TST (SPs 2 35 CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP), -(SP) tA SUST THE STACK AND PUT ADDRESS OF THE 
oo00094 op0002 MOV 4(SP} 2(SP) He FIRST ASCII CHARACTER ON IT 
012236 000004 MOV aSTTYIN, 4(SP) 
at + BF ORACE 
QS: .BYTE O 23S FOR ASCII CHAR. TO TYPE 
"BYTE O +: TERMINATOR 
SITYIN: : KB 4 ;;RESERVE 4 BYTES FOR TTY INPUT 
o0s015 000 §CNTLU: :ASCIZ /tu/<15><12>  };CONTROL “U" 
006507 000012 SCNTLG: .ASCIZ /#G7«15><l2> |; ;CONTROL “G™ 
a: 020122 §MSWR: :ASCIZ <15><12>/SWR = / 
047040 OS3S0S SMNEW: .ASCIZ / NEW = / 
000040 


ee re eee ee ee + ee Se + 


me we ees ee —_—-<— — tee + ower + 


a ae ee ee eee Ce Ce oe ee ee ee er 


DZLAEB.P11 


012364 


hae 


wy Povey PPP EP PIER 
& SRBRRES TERRE 


; O00 YOOOOOOVOOOOOOO0000O 
Tu 
£ 
= 
Oo 


MAINDEC-11-DZLAE-B 


ee ee eee 
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oy ae 


es 


BR 
8 


288 
a 


Ray 
total ets Be SE NOE 


58 8 
ea 8 


000004 000002 


012444 


170000 


000060 


000012 


MACY11 27( 1006) 
:08 


CO? 
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RE 


PAGE 79 
AD A DECIMAL NUMBER FROM THE TTY 
-SBTTL READ A DECIMAL NUMBER FROM THE TTY 


eesnesnennnsucsanevensecesncenseereerre mmare faon ha TTY an 
ea ILE re! TTY Lae. 


Se 
;#THE COMPLE f ETE Mier 


CARRIAGE RE TUR, Y 
eErine M877 TO NEGATIVE 32768 


C 
i RETURN HERE 


SRDDEC: MOV (SP), -(SP) 
V 4(SP)_2(SP) 
MOV RO, -(5P) 
MOV R1,-(SP) 
MOV ’ (SP) 
ma no (SP)+,.RO0 
MOY ORO GS 
CLR -(§P) 
CLR Re 
CMPB a, (RO) 
MOVB  (RO)+,Re 
2s: MOVB = (RO)+.R1 
BEQ 
C #’°0,R1 
BGT S$ 
CMPBs«8#'9, RI 
BLT S$ 
BIT 8107777, (SP) 
BNE S$ 
ASL (SP) 
MOV (SP) ,-(SP) 
ASL (SP) 
ASL (SP) 
ADD (SP)+, (SP) 
BYS $s 
SUB 8’0,R1 
ADD R1, (SP) 
BYS S$ 
BR 25 
3$ TST Re 
BEQ 4§ 
NEG (SP) 
4§: MOV (SP)+, 12(SP) 
MOV (SP)+'Re 
MOV (SP)+'R1 
MOV (SP)+;RO 
RTI 
S$: TST (SP)+ 
CLRB 3s (RO) 


"100 ey oak 


BE RETYPED. THE 


fem 9 OE NUMBER 
S ON TOP OF THE STACK 


FOR 
R 


3L 
+ CHECK hd NUMBER IS NEG 
tSYES= ge gl NUMBER 
: {Bop STACK INTO a 

;POP STACK 


K INTO R 
; POP STACK INTO RO 
; RETURN 


3 CLEAR PARTIAL NUMBER FROM STACK 


;SET A TERMINATOR 


CHARACTERS 


Mit BE TYPED. 
ur is TER one D Be THE 


DO? 


MAINDEC-11-DZLAE-B MACY11 27(1006) O1-MAR-77 14:45 PAGE 80 
DZLAEB.P1i 28-FEB-77 15:08 READ A DECIMAL NUMBER FROM THE TTY 
1 T ;;TYPE_THE INPUT UP TO BAD CHAR. 
BiSuua b5¢d00 6$: THORD 0 ; ;POINTER sy — 


Bisse8 Aggzeg OOt4ee * eR ees itey again’ OP 


TT TT ema oo <2 oo 


Ba aaeeee 


SOI 
LO 


ERbseeneRenw Ns 


ReneS oNae ERED 


Hat at ata 


OVOVOOOVOVOOVOVOOOOOOOOVOOOKOKOOHOOOVOOVOVDOOOVOOOO0O0O0O000 
eee me a ee ae me a ee ee ee ee ee ee be 0 
eae 


& 
oorsVvoO 


NAINDEC-11-DZLAE-B 
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001780 
000000 
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000060 


—-——— 
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DOUBLE LENGTH 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
55 AEE 8 8 98 9 9 9 a EE 


$TH 


* 
* 


aC 


$0820: 


3$: 


4$: 


STNPWR: 


*DECIMAL 
*#POSITIVE 


TINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN 
(ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUS 


MOV 
JSR 
RETURN 


#PNTR, -(SP) 
Pc, as$0B2D 


§ 
8S TNPWR, RY 
8STNPWR+2, RS 


fot) me 
(RS) ,Re 
3$ 

R3 

es 
(R4Y)+,R1 
Re 


(R4Y)+,R2 
RS)+, (RS)+ 


a oe 


ee eee ee ee 


EQ? 


: PAGE 81 
BINARY TO DECIMAL ASCII CONVERT ROUTINE 


UNSIGNED 
T BE 


;;POINTER TO LOW WORD OF BINARY NUMBER 
3; HE FIRST eon ss OF ASCIZ 
33 STACK 


IS ON THE 
+ RO MEUP SHE BATA POINTER 
ig Oe © Bae TN src 
> PICK the BINARY NUMBER 


;;SET UP TO DO 10 CONVERSIONS 
;;ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 
;;SUBTRACT TEN POWER 


;;BR_IF TEN POWER TO LARGE 
33 1 TO PARTIAL 


AH 
;;RESTORE SUBTRACTED VALUE 


;;MOVE TO NEXT TEN POWER 
;;CHANGE PARTIAL TO ASCIT 
7;SAVE IT 

; ;DONE? 

;;BR_IF NO 

;; TERMINATOR 

;;RESTORE REGISTERS 

; ;RETURN 

;;1.0€09 

;1.0E08 

;1.0&07 

.0E06 

;1.0&0S 

. OED4 

.0E03 


. 0E02 


FO? 
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Oleb2e 000000 0 
Olebe4% 000012 12 ;;1.0E€01 
Olebe6 000000 0 
012630 O00001 1 ;;1.0€00 
012632 900000 0 
012634 000014 SDECVL: .BLKB le. ;;RESERVE STORAGE FOR ASCIZ STRING 


.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

Th i gr gg WB ak bt at 
THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

SAUNSIGNED DECIMAL ASCIZ NUMBER. 


CALL 
1% R,-(SP) ;;PUT BINARY NUMBER ON THE STACK 
Wen Be rece 


; a8 3; CALL 
te RETURN ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
012650 016637 OO00002 012700 $SB2D: MOV 2(SP),1$ ;;SAVE BINARY NUMBER 
0126 O12? O1e7o9 MOV #15, -(SP) i186 POINTER 
01 0047 12454 JSR PC, da$DB2D CALL DOUBLE LENGTH CONVERT 
012666 062716 OO000S ADD #5, (SP) ALLOW FIVE CHARACTERS 
O1 72 MOV (eb) 2, 2(SP) PICK POINTER 
l S76 RTS pc 238 
Ble 000600 p00 13: .WORD 0.0 
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.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


5 S63 JE JES EE 9 9 9 3 a a a a a a aa 
;ATHIS ROU ROUT ne WIL LL PR A 32-BIT UNSIGNED BINARY NUMBER TO AN 


0 gia 
ti MOV R,-(SP) ; POINTER TO LOW WORD OF BINARY NUMBER 
ie JSR Pe aeS0u20 THE ROUTINE 
1% RETURN : THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
012704 104411 $DB20: SAVREG ALL REGISTERS 
612706 016601 909902 ov 2(SP) Rl = HPO THe Pte POINTER To LOW WORD 
BiSSté B1S5Ba Bésors Moy BSQCTYL#13.,RS ss PRINTER. 10 
12722 012703 177770 MOV ##C7.R3 ; ;MASK 
012726 012100 MOV (R1)4,RO *:LOWER WORD 
12730 012101 MOV - (R1)4,R1 
012732 905002 CLR - i TERMINAT OR 
012734 110245 1S: MOVE Re, -( RS) *:PUT CHARACTER IN DATA TABLE 
012736 010002 MOV RO. Re ::GET THIS DIGIT 
012740 005304 DEC RY $s eoUNT HIS CHARACTER 
Qle742 003007 BGT 3$ -BR IF Not THE LAST BIGHT 
012744 001405 BEQ 25 *:BR IF IT IS THE LAST OI GIT 
012746 905205 INC RS HA L DIGITS DONE-ADJUST POINTER, FOR FIRST 
glare tome oe Res TRS ey ettordne™ * * 
012756 Apeohs RTS PC tT RETURN TO bisER 
012760 006203 23: ASR R3 ; POSITION THE MASK FOR THE LAST DIGIT 
012762 O0600i 3$: ROR Rl ::POSITION THE BINARY NUMBER FOR 
012764 006000 ROR RO +! THE NEXT OCTAL DIGIT 
012766 O06001 ROR R1 
012770 ROR RO 
012772 006001 ROR R1 
012774 ROR RO 
012776 040302 BIC R3, Re : ;MASK our ALL JUNK 
013000 O62702 oo0069 ADD #0, Re ::MAKE THIS CHAR. 
913004 000753 BR 1$ ::G0 PUT IT IN THE DATA TABLE 
012006 o00clé SOCTVL: .BLKB 14. ::RESERVE DATA TABLE 
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-SBTTL SINGLE LENGTH BINARY TO OCTAL ASCIZ ROUTINE 
= SES SESE gE EE J EE 4 gS dd dh 


He ROUTINE i WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 


“mee NUMBER,-(SP)  ;;PUT BINARY NUMBER ON THE STACK 
i 13 PC, a8$5820 $3 
te TURN SS OF 1ST ASCIZ CHAR. IS ON THE STACK 

013024 016637 o00002 013054 $sB20: 2(SP),1$ one THE BINARY NUMBER 

013032 piece 013054 MOV #15, -(SP) i367 POIN 

013036 737 012704 ISR PC, d8$DB20 $3 CALL DOUBLE LENGTH. ENGTH CONVERT ROUT INE 

13042 716 0000S ADD #5; (SP) OW SIX XC 

l ooo0c2 MOV (5P}+, 2(SP) PCP BOINTE 
0130S2 000207 RTS PC : RETURN 
513054 900000 osoooo0 13: 0,0 


La J 
107 
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-SBTTL TRAP DECODER 


= SEE SJ 9 0 9 9 a a a 
i kTHIS eee Tee Mt WILL + ate a THE LOWE eh eYTe OF THE “TRAP” INSTRUCTION 

; #AND_USE THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE Oe RED ee ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:#G0 TO THAT ROUTINE 
013060 O16646 o00002 STRAP: MOV 2(SP),-(SP) ASSUME THE STATUS OF 
013064 O42716 900020 BIC #20), (5P) $3 i; Me CALLER- ER--DO NOT ALLOW 
913070 D1eHe 013076 MOV #1$;-<SP) tt I 

13074 RTI $iSET HE NEW STATUS 
BS GHEE come Yes ENT ae eres 

pt ain 740 TST -(RO)’ Ree BY 2 

913106 111000 MOVB (RO), RO GET RIGHT BYTE OF TRAP 
013:10 022700 oo0044 CMP #STERM, RO CHECK FOR OUT OF BOUNDS 
013114 003002 BGT +6 ::BR IF OK 

013116 o00000 ::QUT OF BOUNDS 
013120 000776 2 + HANGUP 

O13le2 006300 ASL RO POSITION FOR INDEXING 
013124 016000 013144 MOV STRPAD(RO),RO :;INDEX TO TABLE 

013130 o00200 RTS RO ::G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


O13i32 O11646 S$TRAPe: MOV (SP) ,- 3 ;MOVE T PC DOWN 
013134 016666 000C04% 000002 MOV 4(SP), Step) ;;MOVE THE PSW DOWN 
Olsl4e o0000e2 RTI ;;RESTORE THE PSW 


-SBTTL TRAP TABLE 


; ¥THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP” INSTRUCTION. 


, ROUTINE 

013144 013132 $TRPAD: .WORD S$TRAP2 
Bi3ive 1Ge¥e $TY siCALL=TYPE TRAP (1OWNOI) TTY, TYPEQUT ROU TINE 
013150 10632 STyP0c : jj CALL=TYPOC TRAP+ECLO4NO2) TVPE I ocTAL NUMBER (WITH LEADING 5 fens 

s | 
Bi3t2g B1Bb05 STyPOn iiGact=typon  TRAPSaCLOMNOS) Tee Stat NUMBER (BS PER cAgr face} 
013156 010262 STYPDS :;:CALL=TYPDS | TRAP+S( 104405) DECIMAL HUMBER (WITH SIGN) 
013160 O11662 SROCHR ;;CALL=ROCHR  TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
013162 012002 SROLIN ;;CALL=ROLIN  TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
Dizibs Olee76 ; CALL =RODEC TRAP+10¢104410) READ @ DECTRAL NUMBER FROM ITY 
BI3i7B 10208 SeESREG TICACCERESREC TRAPSIZ(IONMI2) RESTORE RO-RS- ROUTINE 
613172 O11546 : CALL =PRTHOR Thepstsctpee PRINT ST HEADER 
013174 011502 SPRINT ;;CALL=PRINT © TRAP+L4(1O4414) PRINT ROUTINE 
013176 011034 SLOAD *;CALL=LOAD © TRAP#15( 104415) LOAD CHAR ROUTINE 
013200 011400 SNL CALL=MLOAD.  TRAP+16(104416) MULTIPLE CHAR LOAD 
013202 011410 SCNLD ::CALLSCNLOAD TRAP+I7( 104417) LOAD CONVERTED NUMBER 


JO? 
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$ TRAP TABLE 


DZLAEB.P11 | 28-FEB-77 15:08 
MOUS. $3actsHoco. © TRaPeStcLOwMel) MAT? FOR OPERATOR ACTION ~N* 


ee I 
000044 STERM=.-STRPAD 


ee me er a tt ee ee me ee eee -_—-- 


mm mm te ee eee 


Me ee MACY11 27(1006) O1-MAR-77 14:45 PAGE 87 
DZLAEB.P 28-FEB-77 15:08 POWER DOWN AND UP ROUTINES 


.SBTTL POWER DOWN AND UP ROUTINES 
BOWER DQM ROUTINE ne eer rom FTP 
012737 013350 oo0024 {POWER Ooun Roy ° 1S LLUP, J8PWRVEC ; ;SET FOR FAST UP 
000340 000026 #PWRVEC+2 siPRIO: 


MOV 

MOV ,- (SP) ‘2a ON TACK 
He Ri ON STACK 

es TAC 


-_ 
rm 
“ 
8 


atat=t=tatatat— 

ORC 

Roneoies 
StSt attest atta = 


SIs 


:;PUSH RS ON STACK 
013240 165676 HOV aSuR (SP) ; BUSH OSU ON STACK 
oi 3650 pi 33z2 ooo024 HOV Se aeRaee sPuRvEC’ tose UP VECTOR 
013260 000776 BR ~2 ;;HANG UP 

: ALL: sr Qe eter 

013262 012737 013350 000024 $PWRUP: MOV SSILLUP, Q¥PWRVEC ; ;SET FOR FAST DOWN 
013270 013706 013354 MOV SSAVR6, SP GET SP 
figs fee Hl, HEH tae 
iF Teed 165630 SO i )+ $30F T NTO aSWR 
Biaats Of MOY EBB} REMR SBOE Si INTO Re 
013314 012604 MOV (SP)+,R4 ;;POP STACK INTO RY 
013316 012603 MOV ($P)+, R3 +: POP eTack INT fe R3 
OL S382 ok I nov ($03 + Bop STACK IN NT 
Bt 35¢ pis8o9 013210 oco0e4 MOV (SPuRONCD spuavec! Ser UP Ka 19 #0 DOWN VECTOR 
013334 012737 000340 000026 HOV #340, SaPURVECYE ; ;PRIO: i? ot tere ie 
ots bret SPWAMG: iho PWRMSG +: R FAIL BR teR 
013350 000000 SILLUP: HALT 3; THE POWER UP SEQUENCE WAS STARTED 
01335¢ 000776 BR .-2 :: BEFORE THE POWER DOWN WAS COMPLETE 


SSAVRE: 0 ;;PUT THE SP HERE 


tS 
2 
5 
5 


ee ee eee eee ee aE —— —————— 
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SoaRaSINSe ROR 


OOOO OOOO OOOO0O000000 
Oe 
—— 
<£rT 


a hs 
Roc 


t= 
22 
RP 
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POWER DOWN AND UP ROUTINES 

TAAL ddd 
-SBTTL TEST ADDRESS TABLE 


; THE ot al bny met SEQUENCE STARTS WITH TEST20 
;T0 ae i 


FROM 
IREPORT geno FOR Te TEST GOpRESS iN THIS TARE oe petnTinG SEQUENCE 


SSASITITATTTATATATTTTATTTTALATTAPTTELTS POLED AAAS TAESPTTLAATEL ALIAS TSS 


TAT: TESTO 
TEST1 
TEST2 
; TESTS 
;TESTY 
; TESTS 
ji 
; iTEet io 
0 ;TESTI1 
0 ;TEST12 
5 sTEST13 
;TEST1Y 
0 ; TESTIS 
0 ;TESTI6 
0 ;TESTI17 
T at 
TESTel 
TESTee 
TEST23 
TEST24 
ST 
TEST2 
TESTe 
EST30 
TEST31 
ad | ; TEST32 
0 ; TEST33 
0 s TEST 
0 ; TEST3S 
0 ; TEST 
0 ; TEST37 
0 ; TEST4O 
0 ;TESTY1 
0 ;TEST42 
0 ; TEST43 
0 ; TESTMM 
8 ; TESTYS 
5 TEN 
TESTSO 
0 ;TESTS1 
0 iT STs 
0 ;TESTS 
0 : TESTSY 


ee tn a ee me ee ene + ~~ + = 


—--er =-- ee ee ———~ - ~-—=+ 


MO? 


vu 
os 
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1 28-FEB-77 15:08 TEST ADDRESS TABLE 

eae HTEStee 

: 14 _ :T are 

1 s4 TESTb61 

Glee Seles a 

TESTG4 

ie Be TESTE 

013534 000000 0 s TESTE? 

bt 3ea8 ener 0 *TEST71 

013542 000000 0 :TEST72 

013544 900000 0 TEST74 

BT 3ee8 poo 5 TEST oe 

013552 006514 TEST76 4 

012554 006534 TEST77 
SSAOLITITTATTAPLAATATTSTTASTATTSTTALTATTTT TTT PT LEED ETTDAESTEAT ESET S SSS 
.SBTTL ERROR MESSAGE ADDRESS TABLE 
SOSITTTTITATTTTATTLTAATDATALAT TED TEDA AAA SAPATTATETDATALEAEEP ESTED ED EASES SSS 

013556 013632 EMAT: ERR 

013560 013661 ERR2 

013562 013706 ERR3 

13564 013744 RRY 

Oe S 

i i RS 

013574 014117 ERRIO 

013576 014144 ERRI1 

1 14170 RR1 

1 ese Fer 

1 14 RR1Y 

1 14324 ERRIS 

013610 014360 ERRI6 

013612 o1ya14 ERI? 

Hele bh Hs 

1 1 RRe? 

13622 014573 ERR23 

013624 014632 ERRO4 

013626 014671 ERR2S 

013630 014713 ERR2b 


NO? 
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ERROR MESSAGE ADDRESS TABLE 


SCFPITTTTTTTATATATTATTLTAETAATASTATT TAPAS T ETAT ATTAT ASAT ATA TA TSA SSSA 


ERR1: 


SSOSIATTITTIATTATATTATALAATATLATTTTTATS TTT ATAT STALE ATTTTAS AST S STA SAAS 


-SBTTL ERROR MESSAGES 
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NAINDEC-11-DZLAE-B 


DZLAEB.P11 


/READY NOT SET AFTER ERROR CLEARED’ 


-ASCIZ /ERROR CLEAR, POWER OFF/ 
-ASCIZ /ERROR CLEAR, PRINTER OFF LINE/ 
-ASCIZ /READY SET, PRINTER OFF LINE/ 
-ASCIZ /ERROR SET, PRINTER ON LINE/ 
-ASCIZ /READY CLEAR, PRINTER ON LINE/ 
-ASCIZ /ERROR CLEAR, PAPER OUT/ 
-ASCIZ /READY SET, PAPER OLT/ 
-ASCIZ /ERROR DID NOT CLEAR’ 

ZERRCR SET AFTER RESET INSTR/ 


-ASCIZ 
ASCIZ 


ERRe:  .ASCIZ /READY SET, POWER OFF/ 


ERR6: 
ERR7 


E § 
AAMBREY stieanae satus 
sia ted Bedeeaaa? eat ot 


; 
aie ebdatbadlolcs ee = oo 


MARHERARENBONANRNN SeoeS SoeeS Sessa eer ee es oe SN ITeS 


2QOOWIOOO080W02O0WWWWH0WO0O00W1OWOO0O0W0BH0080000000000 


ERR3: 
osusos ERR1O: 


020054 


lee ERR11: 


020122 
020 
ake 
O42 

04 


S16 
13 
Se 
Se4 
7See2 
O20i22 ERR13 
OeOlee O4eS2e 


C4254 bicees Oe01e4% 047111 


i 


a a a ne wee ee ee ee $e Se ee 


BOs 
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ERROR MESSAGES 


1-DZLAE-8 
1 28-FEB-77 


MAINDEC-1 


OZLAEB.P1 


-ASCIZ /READY CLEAR AFTER RESET INSTR’ 
/READY SET AFTER CHAR LOADED/ 
-ASCIZ /ERROR SET AFTER CHAR LOADED/ 
.ASCIZ /READY NEVER SET, CHAR LOADED/ 
ERROR SET, INTERRUPT TEST/ 
-ASCIZ /NO PRINTER INTER BELOW LEVEL 4/ 
/PRINTER ERROR BEFORE CHAR LOAD’ 


-ASCIZ /READY CLEAR, INTERRUPT TEST/ 
-ASCIZ /PRINTER INTER ABOVE LEVEL 3/ 


-ASCIZ 


-ASCIZ /PRINTER NOT READY/ 
-ASCIZ /PRINTER ERROR AFTER CHAR LOAD/ 


-ASCIZ 


ERR14 
ERR1S 
ta ERRIE 
ERR17 
ERR20: .ASCIZ 
ERRe1 
ERR22 
ERR23 
ERRe4Y 
ERR2S 
ERR26 


31 





Bo SAT Rese RoNwecoesuNN GES 
Gace a ig = aa a BEREE ee 


SScSSLGRTSSLeNE Wlamcetotieed Gelet Lee Vets 
5 aiid ciel galt Es set aso 
SS 


Sen ban en ban ban ben hen ben fenton bandon tonben ten tendon) TAAAAAARAERARARAEARARAERERERRARRRRERRRRD 
2O90OO89W9OWWW0WWV0WOVB09WW0WWW2V88WONB0WWOH0WW000020280AQ0W00000000000 


Af, 


7514 O42101 
0Se2 
0Se 
os 
0Se 
0S1 
0Se 
040 
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014742 Oe20l22 047514 
014750 000 


14751 200 geo 
Biyvee 0S2514 wile 
Bees 020075 000 
HOR ofl Be 
Stent Oe0ie4 Oe0043 
1S01 000 

Hee oot (BH 
fas SAG Bes 
015036 05151 
O1SO44 OS2200 be ie0e 
015052 000043 

015054 Oe00S4 OS0040 
ytevad 000 

O01 OS4 020040 
015070 O47S2e2 Oe0l22 
018076 20054 000040 


MACY11 27(1006) 


042101 


CO8 


MaLedt® Pat 


SSUPTLITITITTTTITAT ALTA T ATPL AT ATT EDATS TA ATT ASDA DALE AAT ASAT S 


-SBTTL PROGRAM MESSAGES 
ALLA 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


<CRLF>7# COLUMNS = / 


(CRLF>/SELECT TEST &@ / 


<(LF><LF>/TEST NUMBER / 


7 COLUMNS/<LF> 
<CRLF>/TEST a/ 
4, Peer 

“7, ERROR #/ 


a / 


DO8 


O1-MAR-77 14:45 PAGE 93 
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MAINDEC-11-DZLAE-B 
28-FEB-77 15:08 


OZLAEB.P11 


i, re 

ts % 

S c 2 = 3 
2 Wit fad oo : 
= re Y a So oO ~ 
8 < 8 § 2 2 2 
2 . Bg ¢ “ A . - 
3 ¥ .. at x < . 
cond: oe Beart eet Eg a a 
ean @i }- x % z ie . 
eee OE EG Pees E we fe 
SP 2-28 u Sg 3 3 - 7 < x 
- § Fe “S > oe bare = 2 e & 5 
$6. § 685 € é& e & ag 8° 
NS NM Nee os 6S Ny ty MN ON ON 
222% 222 2 # 3 3 a2 23 
Pipe 6f82 : de 8 8 
= - e 4 eo & & 

Fi Ey ay © B SpSESe iocig pre ay a aes 

aa 8 @ Razed § 2 gee Be ga BEShy Geugge Be =F 
ae 
28; z = zauseene Uzmauenzeses Z 


Ssashentance Bf SAY etal Poston? i eat ee 


PTS E PERE NLEN MANN ch usineireneeemonaat eke eeeeen amet 


-—_ 


———— 


E08 
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OZLAEB.P11 


f 


INCHES 8&8 DEPRESS TOF RESET SWITCH/<CRLF> 


Oi anes wae 
& 


ae 
BesiT 
11 
711 


a ae daa! Shoes Paaiss 22528 
oo: S8 suameuecsonnEn 26x38 
Es gases a § zesseies Hatta BUZBz 


“es Kabelsa OOGE oe! suet! GL00 and meta 
ns 


URINAL RIB IAIAA eben bon pan pan bon ban ban pan }ap ton bon ban ban ton bon bon ben bon ten ben bon bon bon Sen bon fen den bon han Son fon ban ban bas bon han die bap ban hen den 
NQOOVWOWOWIWYI11D QOOOOWOOIWIWOOWIVWVOVWONNIOWIVWOOWKOOKOOOMOOOOKOOONOOOOMNMM 


O44S22 


_ j ow 
uw ad iw 
md a 5 a 
oO uu - oO 
Ne a a w x 
y . a 5 to 
m4 ." oO a 2 
- oun 3 a s 
“a ve ~ Ma , 4 5 oO -— 
uu. % aw —_ Q ~ Oo az 
a o£ & #8 oe z 
oO - Oo So Fr i] x = 
~ Wt vw a i] oO Le ] 
~*~, ~~ Oo ta 1 - } 
lee 5 <4 5 FS "Z = 
- i 4 3 -< Qa w -< 
| ive ae [VT] a (vv) - 
. * % - a a. ta a 
: Sa ba. eq * 
i ec e rd = ive 
v a. a oO it 4 a 
~ t- oO = Z 
» 8 a hoe ee ao 
oO = ca - = °. ; z be 
= Fa] 3S Fo 3S H uw 2 
™,, ~ 4 ~N ~N > ~ mh ~ 7 
mN ™N N NN ™N ™N NON ™N ™ ™N 
_ - ~-e _ ~ ~ | om) _ -< - Ll P 4 
3 g ea tea Ba 223 3 & 3 ui 
f oa oe ¢c¢ ¢ ¢€ « ui 
- rr} c3 25 3 3 c3 Fi 3 
3 BaP AGeae ae og 
_ _ _ -_ 
t a — i - - be i be 
oOo wr i 4 ase w 
asf B Berean 
8 § F 


FO8 
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se Bisbee eat pee TABL64: .ASCIZ YOU FORGOT TO ENTER DATA; CTL-SPRCE/<LF> 
l6e1 il 10 
HER Bue Bae Bien 
is ! 
;OPEN-ENDED TABLE FOR TEST 64 DATA. 


90980% ENC 


' 
' 
' 


oe eee ee rt ee ee 


GO8 
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WWMOMOMWOMMWOMDMOWWMMWMMWOMWMMMWMWM 
0-40 40-40 40-40 40-40 -40-40-40-40-40-4> 40-40 -4P-40-40 40-40-40 40-40-00 4 





accerT 00210 Enat _ 13556 MAXTOR O11142 STRONE 001152 TEsTé4 
= 
Bets". Y ? BA +88 Teets5 Bebeds 
100 = 00000 ERR 015063 PCNSG Ol SUREG 000176 TkB 
TO) = ogooge ERS _ 015076 PIRQ. = 177772 suo = O0000! TKS 
103 = RRS ece SaBnON PIRQVE= 3w00 = 00000! TKVEC = 
103 = 900010 ERR1. 013632 PLKS 001134 SuOl = TLOOP 
TO4 = 000020 ERRIO 14117 PLOAD 11044 Swo2 = OOO004 TORTN 
TOS = ERI] O44 PRINT = 104414 S03 = 000010 TPB 
139 = ppbe00 BARTS Oiubae BRont DOLuee aie |= So00%0 TPYEC 
= = = 
78 = O90400 ERRIY O1MES6 " PRSPL 15470 aioe = bo01G0 TRAPVE 
= s 
i a OF /) 
S Wet = 
Tl] = 00400C EARS? Beet PRTHOR= 10441 Sul = OO0002 TETNO 
112 = 010000 ERR20 14451 PRTSET  OOsu42 Sui0 = 002000 THOBEL 
113 = 020000 ERRS1 014503 PRO = Bull = 004000 TYPDS 
T14 = 040000 ERR22 14837 PRI = Q00040 Su12 = 010000 TYPE = 
TIS = 190000 ERR23  O14E73 PR2 = 000100 Sul3 = 020000 
tT? = 000004 ERROY O14B32 PRI = 000140 aui4 = O40000 TYPON 
13 = 900010 ERRS 014671 PRY = 000200 Suis = 100000 T 
TH = 000020 ERRSE 014713 PRS = 000240 Su2 = 000004 TOMS 2d 
TS = OO00ND ERR3, 013706 PRE = Q00300 $u3 = 900010 TOMSG 
Te = 000100 ERRG 013744 PR? = OO0340 wy == «00002 - 
= 900200 ERRS 014000 PS) = (177776 SWS = QO0040 TOMSC3 
Te = 000400 ERRE 014033 Pew = 177776 Sue = 000100 TOMSC4 
7§ = 001900 ERR? 014070 PURMSG O1521© Su? = 000200 TIMSG1 
BPTVEC= 000014 ETSTNO O1S044 PURVEC= 000024 Sug = OOOO Timece 
CHACTR 006510 EXIT OOB644 QUO! 1764 2u3 = 001000 TIMec3 
CHECK = 104420 FF = 000014 Quo2 oO TABLEY 016174 TIMSGd 
EHD Oos4a0 FSTPAD 001126 ROCHR = 104406 Tat 013356 TEM 
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